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WORD PROCESSING 

In this annual Word Processing issue, we've tried to 
include several word processing programs from our readers 
along with articles on the new Scripsit Utilities package. 
Those of us who have dreaded entering columns of data and 
numbers will find this package to be a real work saver. Col- 
umn manipulation is just one of the useful Utilities in this 
package, but you'll just have to read the article to learn how 
else it can make your word processing tasks more pleasant. 

Implementation of the Merge utility of Scripsit 2.1 is an- 
other article in this issue. Merge has been difficult for some 
Scripsit users to master so we've tried to make the process a 
little clearer in the article. 

DARE YE ENTER THE DUNGEONS . . . 

This game is "the absolute greatest." Because Mr. Shir- 
ley reads these pages, too, I'm reluctant to tell you just how 
many hours have been spent "researching" the most excit- 
ing adventure game yet— The Dungeons of Daggorath. This 
newest Color Computer game has everything: graphics, 
sound, intense excitement, and hair raising challenges. 

It's no secret around here that for days my most consum- 
ing ambition was to defeat the Smiling Blob. The euphoria of 
success soon evaporated when I found myself face to face 
with even more death defying creatures. Still there are crea- 
tures that I have yet to see! Do try the game; it is great fun, but 
I feel that it's only fair to warn you that it is addictive. 

ANOTHER COMPUTER? 

Of course! The Pocket Computer 3 makes it debut in this 
issue. Surely some of you must have suspected something 
when we announced the PC-4 back in March. Don't miss 
reading about this compact, 4K beauty. 

ARCNET AND XENIX INSTALLED 

We have recently been in the midst of having XENIX and 
ARCNET installed in the offices of the Microcomputer News. 
There were technicians in and out, holes drilled in the floor, 
cables appearing, hardware modified, equipment tested, 
and so on. As quickly as they came, the technicians were 
gone, the dust cleared and except for the file processor in the 



storeroom and a couple of innocuous looking cables, every- 
thing looks essentially the same as it did before. But, of 
course, beneath the calm exterior waits all that remarkable 
technology ready to spring into action at a moments notice. 
The only thing left undone is the process of self education 
which we must all undergo to take advantage of all the 
available power of both ARCNET and XENIX. M 



MAGAZINES 

Below are five magazines of speical interest to TRS-80 
owners that we believe have editorial content of high quality 
and will be of use to our customers. 

Basic Computing - The TRS-80 
User Journal {Name change for 
80-US Journal — covers all TRS-80's) 
3838 South Warner Street 
Tacoma, WA 98409 
(206)475-2219 

Color Computer Magazine 
Highland Hill 
Camden, ME 04843 
(207)236-9621 

Color Computer Weekly 
P.O. Box 1355 
Boston, MA 02205 

Rainbow (Covers the TRS-80 Color Computer) 
5803 Timber Ridge Dr. 
Prospect KY 40059 
(502)^28-4492 

two/sixteen magazine 

P.O. Box 1216 

Lancaster, PA 1 7603 

(717)397-3364 & 
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by Radio Shack, a division of Tandy Corporation, One Tandy 
Center, Fort Worth, Texas U.S.A. 76102. Copyright 1983 by 
Tandy Corporation, One Tandy Center, Fort Worth, Texas 
U.S.A. 76102. All rights reserved. 

Reproduction or use, without express written permission 
from Tandy Corporation, of any portion of the Microcomputer 
News is prohibited. Permission is specifically granted to individ- 
uals to use or reproduce material for their personal, non- 
commercial use. Reprint permission for all material (other than 
Ivan Sygoda's Profile article), with notice of source, is also 
specifically granted to non-profit clubs, organizations, educa- 
tional institutions, and newsletters. 

TRS-80 Microcomputer News is published monthly by 
Radio Shack, a division of Tandy Corporation. A single six 
month subscription is available free to purchasers of new full 
size TRS-80 Microcomputer systems with addresses in the 
United States, Puerto Rico, Canada and APO or FPO ad- 
dresses Certain smaller TRS-80 Microcomputers will not in- 
clude this free subscription. Subscriptions to other addresses 
are not available 

The subscription rate for renewals and other interested 
persons with U.S., APO or FPO addresses is twelve dollars 
($12,00) per year, check or money order Single copies of the 
Microcomputer News may be purchased from Radio Shack 
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are available through your local Radio Shack store as stock 
number 26-2115 (Suggested Retail Price $4,95 for the set). 
Back issues of 1981 copies are available as stock number 26- 
2240 (Suggested Retail Price $9.95 for the set). 

The TRS-80 Newsletter welcomes the receipt of computer 
programs, or other material which you would like to make avail- 
able to users of TRS-80 Microcomputer systems. In order for us 
to reprint your submission, you must specifically request that 
your material be considered for reprinting in the newsletter and 
provide no notice that you retain copyrights or other exclusive 
rights in the material. This assures that our readers may be 
permitted to recopy and use your material without creating any 
legal hassles. 

Material for publication should be submitted on magnetic 
media (tape, disk, or CompuServe) If you submit material on 
tape or disk, and it is accepted for publication, we will send you 
two cassettes or diskettes for each one you sent us. Cassettes 
will come from our box of mixed blank cassettes. If you submit 
material on CompuServe, and we think we may use the mate- 
rial, we will extend your Microcomputer News subscription by 
six months for each article accepted If you are submitting 
material over CompuServe, please include your name and ad- 
dress or your subscription number so we can find you If the 
material is very short, send it to us in E-Mail, If you have more 
than a few lines, you need to place the material in the ACCESS 
area of CompuServe and then let us know it is there by leaving a 
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Material may be submitted by mail to P.O Box 2910, Fort 
Worth, Texas 76113-2910, or through CompuServe, The 
Microcomputer News' CompuServe user ID number is 
70007,535, 

Programs published in the Microcomputer News are pro- 
vided as is, for your information While we make reasonable 
efforts to ensure that the programs we publish here work as 
specified, Radio Shack can not assume any liability for the 
accuracy either of the programs themselves or of the results 
provided by the programs 

Further, while Microcomputer News is a product of Radio 
Shack, the programs and much of the information published 
here are not Radio Shack products, and as such can not be 
supported by our Computer Customer Service group If you 
have questions about a program in the Microcomputer News, 
your first option is to write directly to the author of the program. 
When possible, we are now including author's addresses to 
facilitate communications If the address is not published, or if 
you are not happy with the response you get, please write us 
here at Microcomputer News. We will try (given the limited size 
of our staff) to find an answer to your question and, in many 
cases, will publish the answer in an up-coming issue of Micro- 
computer News. 
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Computer Customer Service 



SCRIPSIT Utilities— A Review 



One of the most useful software products to come along 
in quite a while is the SCRIPSIT Utilities package (Catalog 
number 26-4532, Suggested Retail Price $129.00). This 
package adds to SCRIPSIT the functions of column manipu- 
lation, boilerplate, and document to document communica- 
tions. These utilities will work with all of the current Model II, 
1 2 or 1 6 SCRIPSIT packages, including the recently released 
SCRIPSIT for Thinline Floppy and Hard Disk Use (Catalog 
number 26-4835). Once the SCRIPSIT Utilities are installed, 
the Utilities disk must be placed in drive 1 . 

THE COLUMN MANIPULATION UTILITY 

Anyone who prints financial reports will find the column 
manipulation function quite useful. This utility allows the user 
to move entire columns as easily as moving text. Columns 
can also be subtotaled or totaled, alleviating the need for a 
desk-side calculator. Let's see how we can apply the column 
manipulation utility. 

Column manipulation works in much the same way as 
the SCRIPSIT "define text block" ( fcTRT) CE>) utility. Col- 
umn manipulation is used to move already created text while 
eliminating the drudgery of setting up the format line with 
elaborate tab settings. First we will create some text with 
which to work. Open a sample document and create the 
following text: 



Proposed Budget for Fiscal 1 984 



Department ■ 
■ 

Accounting ■ 
Data Proc. ■ 
Manufacturing 
Research ■ 
Shipping ■ 
Gen. Admin. 1 



Budget ■ 

Requested I 

■ 

137,000.00 

250,000.00 

134,000.00 

275,000.00 

127,000.00 

110,000.00 



Budget ■ 
Approved 



127,000.00 ■ 
200,000.00 ■ 
124,000.00 ■ 
250,000.00 B 
117,000.00 ■ 
100,000.00 ■ 
■ 

To start the column manipulation utility, place the cursor 
on a single-line, non-centered paragraph. (This is essentially 
a single line of text with a hard carriage return.) In this exam- 
ple, place the cursor on the "D" of Department and press 
(esc) fcT). You will see the following message on the bottom 
line: 

Crs:ll,ccc DEFN Elmnt Col Above Below; Inquire Recall 
Subtot Tot Mean Format 

At this point we will select the Elmnt option to define the 
first element "Department." If you had selected Col, you 
would have defined the entire first column, including the 
numbers below. Select the rest of the department headings 
using the Elmnt option. We have now defined everything 
from Department to Gen. Admin., including the blank line 
below Department. In this example we want the departments 
to be indented. We can either choose the Move option or the 
Shift option. Since we only need to reposition the text on the 
same lines, we can use the Shift option. Select the "Col" 
option and using the left and right arrow keys, position the 
column where you want it. In our example we indented the 
column five spaces. Press the (break) key until you return 
to normal SCRIPSIT operation. Your text should now look like 
this: 



Proposed Budget for Fiscal 1 984 



\ Department ■ 
\ ■ 

\ Accounting ■ 
\ Data Proc. ■ 
\ Manufacturing 
\ Research ■ 
\ Shipping ■ 
\ Gen. Admin. ■ 



Budget ■ 

Requested I 

■ 

137,000.00 

250,000.00 

134,000.00 

275,000.00 
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127,000.00 
110,000.00 



Budget ■ 
Approved ■ 
■ 
127,000.00 ■ 

200,000.00 a 

124,000.00 m 
250,000.00 ■ 
117,000.00 H 
100,000.00 ■ 

■ 

Now define the next group of elements and select the 
"Move" option. On the line above the "Department" head- 
ing, move the cursor five spaces to the right of "Department." 
Press Q5D to recall the column. Then repeat the process with 
the remaining column, placing the cursor ten spaces to the 
right of the "Budget" heading. Press the (break) key to 
exit the column manipulation operation. 

Now your screen should look like this: 



Proposed Budget for Fiscal 19841 



Department \ 
\ 

Accounting \ 
Data Proc. \ 
Manufacturing 
Research \ 
Shipping \ 
Gen. Admin. \ 



Budget \ 
Requested \ 

137,000.00 \ 
250,000.00 \ 
134,000.00 \ 
275,000.00 \ 
1 27,000.00 \ 
11 0,000.00 \ 
1,033,000.00- 



BudgetH 
Approved ■ 

m 

127,000.001 
200,000.001 
124,000.001 
250,000.001 
117,000.00! 
100,000.001 
918,000.00! 



Notice that the columns have been totaled. This was 
accomplished by defining the elements and choosing the 
"Total" option, moving the cursor onto the blank line under 
the decimal point, and pressing the "T" for "Total" again. If 
you get the message, "Tab type doesn't match for column to 
be inserted," make sure you have at least one hard carriage 
return below the line where you want the totals to appear. 
Again press the (break) key to return to normal SCRIPSIT 
operation. As an added touch we centered the heading 

(CTRD fLl. 

This has been a simple example of column manipulation, 
but it should give you an idea as to the usefulness of this utility. 

THE BOILERPLATE UTILITY 

How many times have you found yourself copying a 
paragraph from an existing document to a new one? If you 
are in a business that uses standard forms such as insurance 
contracts or real estate contracts, you will certainly be able to 
use this utility. "Boilerplate" is the ability to create documents 
with standard paragraphs and then easily insert them into 
your new document. 



The first step in using the Boilerplate Utility is to create a 
boilerplate document. This is the document that will contain 
all of your standard paragraphs or pages. A boilerplate docu- 
ment differs from a regular document in that the first page 
contains a "table of contents" (only) and the boilerplates are 
on the remaining pages, one to a page. The maximum num- 
ber of boilerplates in a document is 220. However, you can 
create as many boilerplate documents as you need. Each 
one must have a different name as in any other SCRIPSIT 
document. 

To begin, create a new document using the (FD key 
and give the document the name *Boilerplate-V*. The "V" 
represents vertical format. (*Boilerplate-V* and *Boilerplate- 
H* are the default document names the Boilerplate utility 
looks for when a boilerplate is requested). 

On the first line of the first page, type the following 
EXACTLY as shown below: 

Boilerplate (enter) 

The remainder of the page will contain the table of con- 
tents. Each entry in the table of contents must follow this 
format: 

boilerplate name CTKW) page number termination character 

The termination character for the table of contents entry 
can be either a QlajO, (enter) or a forced end of page, 
f e SO CD- To maximize the number of boilerplates in a 
document, group three entries on each line in the vertical 
format and five entries on each line when using the horizontal 
format. Here is a sample table of contents. 

Boilerplate!! 

Letter heading \ 2\ Std remarks \ 3B 

Disclaimer \ 4\ Warranty \ 5H 

Conclusion \ 6 J 

Note that the table of contents does not have a fancy 
format. Do not put anything between the word "Boilerplat e" 
and the boilerplate titles, not even an additional Center! . If 
there is an additional (enter"") , the Boilerplate Utility will 
respond with an error message and not find the requested 
boilerplate. 

The text for page two might look like this: 



Letter heading \ 



\ \ 



\ \ 



Standard letter heading ■ 
{D}E 



AnyCorp Credit Dept.H 
3400 Any Tower Suite 100B 
Anytown, Your State 92333 M 

1 

Note the boilerplate name at the beginning of the page. 
This is an optional comment line that can be used to desig- 
nate the boilerplate. Any initial comment must begin with the 
boilerplate name, followed by a (tab) , followed by the 
comment. The suggested format for boilerplate pages is: 

an initial comment, text, and end of page marker. 
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When the Boilerplate Utility looks for a boilerplate, it will 
verify the boilerplate name if it is present in an initial comment. 
Any number of comment lines may be used within a boilerp- 
late. These comment lines may consist of an (esc) CD, the 
text, and an (esc) CD (enter) . 

The useful part of the Boilerplate Utility is when it is put to 
work. Create a new document such as a business letter and 
activate the Boilerplate Utility by pressing (esc) CW). The 
bottom line will display: 
Boilerplate name? 

If you used the default names of *Boilerplate-V* or 
*Boilerplate-H* then you need only enter the individual 
boilerplate name. If you create other boilerplate documents 
under other names, then you must answer the prompt with: 
diskname: document name boilerplate name .password 

If the diskname is SCRIPSIT then diskname may be 
omitted. 

After entering the boilerplate name, press (enter ) 
and in a few seconds the requested text is inserted into the 
new document. The new document may now be edited, 
moved, reformatted, or rearranged as required by the new 
document. 

THE COMMUNICATIONS UTILITY 

You've been asked to prepare a special report needed 
today by the home office in another city. There isn't enough 
time to send it by courier. How will you get it there? You could 
dictate it over the phone but, there is a better way. Now with 
the SCRIPSIT Communications Utility you can easily transmit 
your report directly into SCRIPSIT on another similarly 
equipped Radio Shack computer on the other end. The 
report is printed, and you've made your deadline. 

The Communications Utility may be used on any combi- 
nation of two Model II, 12, or 16 computers and any mixture 
of SCRIPSIT versions from SCRIPSIT 2.1 , SCRIPSIT HD, or 
SCRIPSIT for Thinline Floppy. Of course, suitable communi- 
cations hardware must be used on each end of the communi- 
cations link, and the SCRIPSIT Utilities must be installed on 
each end. Both of the computers must also be using the same 
communications protocol (baud rate, parity, etc.). 

With the Communications Utility you have the option of 
using "manual," "terminal," or "automatic" connections. Us- 
ing manual connections, you are responsible for establishing 
contact with the other computer at the other end. Terminal 
connections allows the use of non-Radio Shack devices to 
establish connections. Using two Modem lis (Catalog num- 
ber 26-1 1 73), the Utility allows you to automatically call up the 
other computer at a specified time, transmit the document or 
documents, and disconnect, all from within SCRIPSIT. 

To usetheCommunications Utility, at the SCRIPSIT direc- 
tory select the QCD option for the Utilities Menu, At the Utilities 
Menu select CD for the Communications Utility. Next you will 
see a screen that requests answers to four questions. First 
you will be asked if you will be transmitting or receiving. Next 
set the baud rate. This must be the same for both computers 
in the system. Next you must decide if you wish to disconnect 
after your transmission is complete. The default is "discon- 
nect." The last item on the screen is the connection type: 
manual, terminal, or automatic. Select the connection type 
and press (enter) or (esc) . 

If you are receiving a document, the Utility requests a 
destination diskname on which to put the documents. If you 



are transmitting documents, the Utility then asks for a docu- 
ment name. At the prompt, type in the document name in the 
following format: 

diskname:document name. password GDnjQD 

The diskname is optional as the utility will search the 
current disk for the document. After you have pressed 
(enter) , the screen will be cleared and you will be 
asked for another document name. Up to ten documents 
may be selected. After the last document is selected, press 
(enter) on the blank prompt line. 

Next you are requested to make your communications 
connections. In the manual mode this is true for both receive 
and transmit. When connections are made, press any key to 
continue. At this point both computers will display the mes- 
sage "Connecting," and the transmitting computer will send 
the requested document(s). The Automatic option works 
slightly differently in that once you have completed the setup, 
the Utility will display "Connecting" until the transmitting com- 
puter calls the receiving computer and transmits the re- 
quested documents. Of course both computers must be 
ready to communicate at the time specified in the Automatic 
setup. At the end of the transmission the computer will display 
the names of the documents transmitted or received and any 
errors that may have occurred. Pressing any key returns you 
to the Utilities Menu. 



SUMMARY 

SCRIPSIT Utilities brings a new dimension to your word 
processing repertoire. Now you can easily format your col- 
umnar text into professional looking reports using the 
Column Manipulation Utility without having to set multiple 
tabs and special format lines. The Boilerplate Utility eliminates 
the tedious task of either retyping standard paragraphs or 
copying them from existing documents. The ultimate utility, 
the Communications Utility, lets you transmit from computer 
to computer from within SCRIPSIT without having to go 
through the time consuming steps of creating an ASCII text 
file and then transmitting it and converting the text back into 
SCRIPSIT on the other end. Now it is as simple as ABC, 



Computer Customer Service 
Address and Phone Numbers 

8AM to 5PM Central Time 

Computer Customer Services 

400 Atrium, One Tandy Center 

Fort Worth, Texas 76102 

Model I/III/4 Business Group (817) 390-3939 

Model 11/12/16 Business Group (817) 390-3935 

Languages and Compilers (817) 390-3946 

Color/Model 100/Pocket Computer Group (817) 390-3944 
Hardware and Communications Group . . . (817) 390-2140 

Educational Software (817) 390-3302 

Games, Books, and New Products (817) 390-2133 

Newsletter Subscription Problems (817) 870-0407 
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Pocket Computer 



The New PC-3! 



by Annette Zamberlin-Main 
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Just when you thought Radio Shack had introduced all 
its new models for 1983, yet another appears— the Pocket 
Computer 3. And what a charmer this newest addition to the 
PC family is! 

The PC-3 (Cat. No. 26-3590) has a 52-character key- 
board, a 24-character display, a powerful BASIC in 24K of 
ROM, and 4K of RAM. One feature I like is the PASSWORD 
protection you can apply to stored programs. 

The PC-3 is 5 5 /i6"(W)x2 3 /4"(D)x 3 / 8 "(H) and weighs 
approximately .25 lbs. It is available for $99.95 (suggested 
retail price) at Radio Shack Computer Centers and participat- 
ing Radio Shack stores and dealers. Its Printer Cassette 
Interface (Cat. No. 26-3591) is available separately for 
$119.95 (suggested retail price.) 
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Three of the Radio Shack pocket computers, the PC-1 , 
the new PC-3, and the PC-2 have many features in common, 
but there are some significant differences. Occasionally the 
same features are present, but are somewhat different in 
presentation or execution. In order to better facilitate the use 
of the various programs for the different models, the following 
comparative charts have been prepared for our readers. 

VERBS AND COMMANDS 

In the following chart the symbol: 

M indicates that the feature can only be 



used in manual execution, i.e., as a 

command: 
P indicates that the feature can only be 

used within a program; 
B indicates that the feature can be used in 

both contexts. 
When no symbol is shown, the feature is not available on 
that machine. 





PC-1 


PC-3 


PC-2 


Comments 


AREAD 


P 


P 


B 


NOTE 1 


ARUN 






P 




BEEP 


P 


B 


B 


NOTE 2 


CHAIN 


P 


P 


P 




CLEAR 


B 


B 


B 




CLOAD 


M 


M 


M 




CLOAD? 


M 


M 


M 




CLS 






B 




COLOR 






B 




CONT 


M 


M 


M 




CSAVE 


M 


B 


B 




CSIZE 






B 




CURSOR 






B 




DEGREE 


B 


B 


B 




DATA 




P 


P 




DEBUG 


M 








DIM 




B 


B 




END 


P 


P 


P 




FOR . . . TO . . . STEP P 


P 


P 




GOSUB 


P 


P 


P 




GOTO 


P 


B 


B 




GCURSOR 






B 




GPRINT 






B 




GRAD 


B 


B 


B 




GRAPH 






B 




IF. . .THEN 


P 


P 


P 




INPUT 


P 


P 


P 




INPUT# 


B 


B 


B 




LET 


P 


P 


P 




LF 






B 




LINE 






B 




LIST 


M 


M 


M 




LLIST 




M 


B 


NOTE 3 


LOCK 






B 




LPRINT 




P 


B 


NOTE 4 


MERGE 


M 


M 


M 




NEW 


M 


M 


M 




NEXT 


P 


P 


P 




ON . . . ERROR 






P 




ON . . . GOSUB 




P 


P 




ON . . . GOTO 




P 


P 




PAUSE 


P 


P 


B 




PASS 




M 
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PRINT 

PRINT # 

RADIAN 

RANDOM 

READ 

REM 

RESTORE 

RETURN 

RLINE 

RMTOFF 

RMTON 

ROTATE 

RUN 

SORGN 

STOP 

TAB 

TEST 

TEXT 

TROFF 

TRON 

UNLOCK 

USING 

WAIT 



NOTE 4 



M 
P 



NOTE 5 



NOTE 1 : There are some minor differences between the PC-3 

and the PC-1 in behavior of AREAD following PRINT, but 

these are unlikely to cause problems in ordinary usage. 

NOTE 2: The PC-3 has tone and duration. 

NOTE 3: The PC-1 can emulate with LIST. 

NOTE 4: With the PC-1 all PRINT statements go to the printer, 

and not to the display. Because the PC-3 is a bit more versatile 

than the PC-1, an LPRINT statement will go to the printer, 

while a PRINT statement directs to the display. 

NOTE 5: On the PC-1 the USING format applies to all displays 

on the line in which the USING clause appears, even if the 

variable precedes the verb. On the other PCs, the USING 

format applies only to displays which follow the verb and 

remains in effect until cancelled by another USING verb. 

Example: 

10 A = -123.456 

20 PAUSE USING"####.##";A 

30 PAUSE A, USING"####";A 

When executed, this program displays the following: 

PC-1 -123.45 

- 1 23 - 1 23 

PC-3 -123.45 

-123.45 -123 

As compared with the PC-1 , the PC-3 is faster in processing 
speed for calculations. Therefore, when game programs writ- 
ten for the PC-1 are used with the PC-3, adjust the game 
speed, etc. 



VARIABLES 

In this and the following charts the features are simply 
marked with a 'Y' when the machine has the feature. 



INKEYS 
MEM 
PI or n 
TIME 



-1 


PC-3 


PC-2 Comments 




Y 


Y 


f 


Y 


Y 




Y 


Y PC-1 has only n 
Y 













NUMERIC FUNCTIONS 










PC-1 


PC-3 


PC-2 


Comments 


ABS 


Y 


Y 


Y 




ACS 


Y 


Y 


Y 




ASN 


Y 


Y 


Y 




ATN 


Y 


Y 


Y 




COS 


Y 


Y 


Y 




DEG 


Y 


Y 


Y 




DMS 


Y 


Y 


Y 




EXP 


Y 


Y 


Y 




INT 


Y 


Y 


Y 




LOG 


Y 


Y 


Y 




LN 


Y 


Y 


Y 




NOT 




Y 


Y 




POINT 






Y 




RND 


Y 


Y 


Y 




SGN 


Y 


Y 


Y 




SIN 


Y 


Y 


Y 




SQR or V 


Y 


Y 


Y 


PC-1 has only V 


STATUS 






Y 




TAN 


Y 


Y 


Y 




STRING FUNCTIONS 










PC-1 


PC-3 


PC-2 


Comments 


ASC 




Y 


Y 




CHR$ 




Y 


Y 




LEFTS 




Y 


Y 




LEN 




Y 


Y 




MID$ 




Y 


Y 




RIGHTS 




Y 


Y 




STRS 




Y 


Y 




VALS 




Y 


Y 




OPERATORS 












PC-1 


PC-3 


PC-2 


Comments 


A 


Y 


Y 


Y 


NOTE 1 


*,/, + ,- 


Y 


Y 


Y 




>> =, = ,< >, 










< =,< 


Y 


Y 


Y 




AND, OR 




Y 


Y 




& 




Y 


Y 





NOTE 1 : Raising a negative number to a power with the A 
operator can result in incorrect signs on all three pocket 
computers. 

PC-1 program tapes can be used with the PC-3. When 
entering the PC-1 programs into this unit from its keyboard, 
however, the following precautions should be observed: 

For example, the following are keyed-in for program 
entry: 

10 IF N = LPRINT A fFNTER) 

With the PC-1 , this results in a command for "If N = L, 
display A" (IF N = L PRINT A). With the PC-3, however, it 
becomes a command for" If N = , print A" (IF N = LPRINT A), 
causing a syntax error (ERROR 1) to occur when executed. 
This is because the PC-3 has an LPRINT command not 
available with the PC-1. 

Therefore, an IF statement should be keyed-in as: 

10 IF N = LTHEN PRINT A 

Thus, a character-string for "variable with command" 
with the PC-1 may be regarded as "a command" in the PC-3. 
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Merge for Scripsit 2.1 



By Linda Miller 



Merge is one of the most useful utilities of Scripsit 2.1 .0. 
Merge is frequently used in form letters where the same basic 
information is sent to several people but each letter is per- 
sonalized to include the recipient's name, address, or other 
pertinent information. 

THE SYSTEM SETUP 

To set up a floppy disk system, insert Scripsit in drive 
and a TRSDOS formatted diskette in drive 1, 2, or 3. The 
TRSDOS diskette is used to store the variable or Merge 
document (the document containing the information that 
changes) in ASCII format. Because the Scripsit program 
preallocates most of the space on the Scripsit disk for its own 
use, a TRSDOS formatted diskette is used to store the ASCII 
formatted document. 

THE HYPOTHETICAL DATA 

The president of the small, newly organized Cowtown 
Computer Club wants to send a letter to all the club members 
informing them of the subject, time, and location of the next 
club meeting. All three of the other members— I did say 
small— need to have the information, and the club president, 
V.T. Humble, is anxious to show off the capability of his 
Scripsit word processor. The club members are: 
Clay T. Clayton Mary S. Maryland 

100 Main Street 200 South Street 

Fort Worth, TX 76102 Fort Worth, TX 76102 



555-1111 



Figure 1. 



555-1112 
John W. Johnson 
300 Center Street 
Fort Worth, TX 76102 
555-1113 



THE PROCEDURE 

Merging is basically a three step operation. 

Cowtown Computer ClubH 

500 West Street ■ 

Fort Worth, TX 7601 6 M 

m 

{FIRST NAME} {LAST NAME} ■ 
{STREET ADDRESS} H 
{CITY, STATE ZIP} ■ 
Dear {FIRST NAME}, ■ 

So you won't forget! Here's the information regarding 
our next meeting. ■ 

Date: September 7, 1983B 
Time: 7:30 RM.H 
Place: 500 West StreetB 
Theme: Your TRS-80 as a Word Processor ■ 
H 
Be sure to come and bring your friends. M 
US 

Sincerely, ■ 
Figure 2. V.T.HumbleB 



1 . A Base document is created. A Base document con- 
tains the information that will be identical for each club 
member. 

2. A Merge document is created. The Merge document 
contains the variables or information that changes 
each time the final product is printed. 

3. The Base and Merge documents are merged and 
printed. 

THE BASE DOCUMENT 

The Base Document consists of two parts: the informa- 
tion that will be identical for each person on the mailing list 
and a set of code names. Code names are enclosed in 
braces ({ }) as shown in the sample Base Document in Figure 
2. 

THE MERGE DOCUMENT 

The Merge document also consists of two parts: the 
same code names as the Base document (and possibly some 
code names not shown in the Base document) and the actual 
data or variables to be merged with the base letter. Both the 
code names and the variables are enclosed in braces. Figure 
3 is the Merge file list of code names and sets or groups of 
variables. Mary S. Maryland, her address, city, and phone 
number constitute what is for convenience referred to as a 
"set of variables." 
{FIRST NAME}H 
{LAST NAME }M 
{STREET ADDRESS} ■ 
{CITY, STATE ZIP }■ 
{PHONE NUMBER}^ 
M 

{ClayT.JB 
{Clayton} ■ 
{100 Main Street} ® 
{Fort Worth, TX 76102}! 
{555-1111 }H 
■ 

{Mary S.}B 
{Maryland} H 
{200 South Street} ffl 
{Fort Worth, TX 76102}! 
{555-1112}H 
■ 

{John W.} 
{Johnson} 9 
{300 Center Street} ■ 
{Fort Worth, TX 76102}! 
{555~1113}H 



Figure 3. 

The left and right braces must surround each code name 
and each variable. One missing brace will guarantee an error. 



'Code names 



'Sets of variables list 
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(Setting up a user key to enter the braces simplifies the 
process and decreases the chance for error— provided the 
user key is set up accurately.) If the right brace on {John W. 
Johnson} were missing so it appeared as 

{John W. JohnsonH 
an error would occur. 

Noice that there is an equal number of elements in the 
list of code names as there is in each set of variables. (See 
Figure 4.) 

{FIRST NAME}^ {ClayT.}B 

{LAST NAME} M {Clayton} H 

{STREET ADDRESS}H {100 Main Street}H 

{CITY, STATE ZIP}H {Fort Worth, TX 76102JB 

{PHONE NUMBER} ■ {555-11 11 }■ 

M m 

Figure 4. 

If there are five code names, then there must be five 
elements in every set of variables. If one group of variables is 
missing an element such as a phone number, the braces 
must still be in the position where the missing element would 
have appeared as in Figure 5. 
{Clay T.}B 
{Clayton }M 
{100 Main Street} B 
{Fort Worth, TX 76102}B 



Figure 5. 

Each set of variables must be separated by two enters 
(shown as the graphic character B in the examples). Since 
this point has been confusing, look at the sets of variables in 
Figure 3. The set of variables for Mary S. Maryland and the 
set of variables for John W. Johnson must be separated by 
two enters. The first enter is the one that follows Mary S. 
Maryland's phone number. The second enter appears be- 
tween her phone number and John Johnson's name. Also, 
the Merge document must be ended by pressing (enter) 
three times. In Figure 6 John W. Johnson's set of variables is 
the last group in the list, and there are three enters that follow 
his phone number. 
{John W. Johnson} B 
{300 Center Street} B 
{Fort Worth, TX 76102}B 
{555-1 11 3} B '1st (ENTER) 

B '2nd (ENTER) 

M '3rd fE N T E R ) 

Figure 6. 

The first of the three enters follows his phone number 
and then there are two enters immediately below where no 
text appears. The last three enter blocks terminate the list of 
variables. 

The wrong number of enters and an occasional missing 
brace are small errors, but they will defeat you every time if 
they are not corrected. 

MATCHING CODE NAMES 

Code names in the Base document and the Merge docu- 
ment must match exactly. A code name {FIRST NAME} in 
the Base document and the code name {FIRSTNAME} in 
the corresponding Merge document would cause an error 
because the first code name {FIRST NAME} includes a 
space between FIRST and NAME, but FIRST NAME does 
not. Therefore, the two code names are not identical. 



CONVERTING THE VARIABLES INTO AN ASCII FILE 

The Merge document is converted to an ASCII file by 
typing (ctrlj CHj C5L which brings up the Merge Docu- 
ments prompt. Change the B for Base document to a C for 
Convert. Next enter a TRSDOS filename and drive number 1 , 
2, or 3 depending on which floppy drive contains the 
TRSDOS formatted diskette. The filename for the Cowtown 
Computer Club's list of addresses is ADDRESS:"!. Press 
fENTER ). The Merge document is converted to 
ASCII format and stored on the diskette in drive 1 as indicated 
in the TRSDOS filename ADDRESS: 1. 

IT'S TIME TO MERGE AND PRINT 

Now that there is a Base document and the Merge 
document has been converted to an ASCII file, it is time to 
actually merge and print the final product (letters in this exam- 
ple) providing the printer is ready Open the Base document. 
Type (CTRL ) QTj CMj fE N t E R i and the TRSDOS file 
name for the Merge Document (ADDRESS:1). The Merge 
Documents Menu is displayed so printing parameters (pause 
between pages, number of copies, type of printer, etc.) can 
be changed. Finally, press CEJIID to begin printing the 
merged documents. 

VARIATIONS ON A THEME 

While it is necessary to have a code name in the Base 
document that corresponds to a code name in the Merge 
document, it is not necessary to have every code name that 
appears in the Merge Document appear in the Base Docu- 
ment. The telephone numbers that appeared in the Merge 
Document in Figure 3 were not used in the Base Document in 
the example, but that Merge document could be used with a 
different Base document to create totally different output. 

IN SUMMARY 

The Base or the Merge document can be created first. In 
this example, the Base document was created first for illustra- 
tion purposes. 

In capsule form, here are the steps in the Scripsit 2.1 
Merge. 

1. Insert Scripsit in drive and a TRSDOS formatted 
diskette in drive 1, 2, or 3. Verify that the printer is 
ready. 

2. Create the Base document which includes the text 
that is to be duplicated for each document and code 
names surrounded by braces. 

3. Create the Merge document with code names that are 
identical to those in the Base document. Every vari- 
able and code name is surrounded by braces. Verify 
that there are two enters separating each set of vari- 
ables and three enters at the end of the variable list. 
(See Figure 5.) 

4. Convert the Merge document to an ASCII file storing 
the file on a TRSDOS disk in drive 1 , 2, or 3 if using 
floppy disk. 

5. Open the Base document. Type (Ctrl) QTJ CMD 
(enter) and the ASCII file name followed by an 
FeTnt e r) . 

6. Change any printing parameters that need to be 
changed. 

7. Print the documents. 

Once understood, Merge is easy to use and its versatility 
hasn't even been tapped. Additional helpful information can 
be found in the Scripsit Reference Manual. Jl 



10 
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Education 




rComp 




The first of a series of Radio Shack® secondary math 
programs for the TRS-80® Color Computer is now available 
from your local Radio Shack store, Radio Shack Computer 
Center, or Regional Educational Coordinator. Investigations 
in Integral Calculus for the TRS-80 Color Computer (Cat. No. 
26-2641) is the Color Computer version of Radio Shack's 
Investigations in Integral Calculus Program for the Model III, 
Model 4, and Model I (Cat. No. 26-2600). The program is 
designed to help students gain an understanding of calculus 
concepts while avoiding the complex theoretical approach 
traditionally used in calculus textbooks. The program graphs 
and computes the areas of functions, using equations en- 
tered by the student, or using a "default" equation that is built 
into the program. 

RUNNING THE PROGRAM 



Once the 
pressed [enter 



program is loaded and the student has 
to continue past the title screen, the 



student can enter the equation that he or she wants to see 
graphed. (The teacher's manual includes a concise explana- 
tion of the rules for entering equations using computer BASIC 
expressions.) If no equation is entered, the computer uses the 
"default" equation, y = x 4 -2x 3 -43x 2 + 80x + 300. 



POINT". At "NUMBER OF INTERVALS?' 
type QDSDCoD and press (enter ). 



the student would 




mn&E 



The computer makes calculations. Then the graph is 
drawn, the area or integral that has been calculated is shaded 
in, and the integral is displayed at the bottom of the screen. 





Next, the student enters the desired domain. For exam- 
ple, to determine the integral of the current equation from to 
7 by dividing the region into 100 trapezoids, the student 
would type GD and press fE~N ter) at the message "LEFT 
ENDPOINT?", and then enter m for the "RIGHT END- 



After a pause, a menu of options appears. From this 
screen, the student can change the domain of the integral to 
be calculated, change the equation to be integrated, redraw 
the graph slowly or quickly, see the limits of the current graph, 
or end the program. 
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Radio Shack's original version of Investigations in Inte- 
gral Calculus (26-2600) can be used with aTRS-80 Model III, 
Model 4, or Model I, and is compatible with Network 2 
Systems. Minimum memory requirements are 16K for tape 
and 32K for disk. 26-2600 can also be used with a Network 3 
system; this application requires RS-232C and an additional 
16K in the student stations. 

COLOR PROGRAMS TO FOLLOW 

A series of secondary math and science programs for 
use with the TRS-80 Color Computer is currently under de- 
velopment at the Radio Shack Education Division. A Color 
Computer version of Radio Shack's Vector Addition program 
will be available soon. (Model III, 4, and I version currently 
available, Cat. No. 26-1720.) Ji 



SELECTED INVESTIGATIONS 

The teacher's manual for the color calculus program 
includes a Selected Investigations section, which the teacher 
can reproduce and distribute to the students. Selected Inves- 
tigations is a series of fourteen investigations that cover the 
following integral calculus topics: 

The trapezoidal rule 

Integral notation 

The integral of a constant function 

Negative integrals 

The integral of x n 

The integral of Vx 

The integral of the sine and cosine functions 

The integral of the exponential function 

The integral of a constant times a function 

The integral of the sum of two functions. 

An Answer Key, also in the teacher's manual, provides 
the teacher with answers and explanations of the problems in 
the Selected Investigations. Graphs and areas for the Se- 
lected Investigations are also given in the Answer Key. 

HOW TO USE THE PROGRAM 

A few of the ways that Investigations in Integral Calculus 
can be used in the classroom are: 

• As a one- to two-week unit in integral 
calculus near the end of an Algebra II 
course 

• As a short unit in integral calculus in a 
survey course in mathematics at the 
senior level 

• As an introduction to integral calculus at the 
beginning of a course in calculus 

• As an independent study unit in calculus for 
the interested student. 

Investigations in Integral Calculus for the TRS-80 Color 
Computer (26-2641) can be used with a TRS-80 16K Color 
Computer tape system (with Extended Color BASIC) or a 
TRS-80 32K Color Computer disk system (with Disk 
Extended Color BASIC). It can also be used with a Radio 
Shack Network 2 System with a Color Computer host and 
Color Computer student stations with at least 1 6K of memory. 



Computers and 
Reading/ Learn i 
Difficulties Con 



nee 



Between 700 and 1 ,000 are expected at the Computers 
and Reading/Learning Difficulties Conference scheduled for 
October 14 and 15 at the Sheraton-Dallas Hotel in Dallas, 
Texas. 

This is the largest conference specifically targeted for 
computer users in reading, language arts, and learning 
disabilities. 

Classroom teachers; reading specialists; learning dis- 
ability specialists; university professors of education, reading, 
and special education; speech and language clinicians; ad- 
ministrators, and parents could all benefit from attending this 
conference. 

The conference is sponsored by Computers, Reading 
and Language Arts (CRLA, a professional journal) and pro- 
vides learning experiences for the novice as well as the 
experienced computer user in the area of: 

Utilizing Microcomputers in reading clinics, learning dis- 
ability classrooms, regular classrooms 
Evaluating software 
Authoring systems 
Microcomputers as motivators 
Implementing programs. 

For a brochure with full details on the program, faculty 
and registration, write: 

Frost Conference Management 

Department I 

1070 Crows Nest Way 

Richmond, CA 94803 M 
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Vocational Computing as a 
Start-Up Alternative 



by John McGinty 

Assistant Principal for Instruction 

Grand Prairie (Texas) High School 



The curricular area of vocational computing is reason- 
ably well defined in terms of need. The aim of public school 
vocational computing is to prepare practically trained, voca- 
tionally oriented graduates with solid applications skills. 
These students will enter positions subject to rapid technolog- 
ical change, where continual learning is the expected pattern 
of employment. Their training must address job attitudes as 
well as job skills. 

A good model for a program of vocationally directed 
school computing may be found at Grand Prairie High 
School, a school of 1700 students located in the Dallas/Fort 
Worth metroplex. The school's vocational department trains 
students for entry-level positions offered by a number of local 
employers. Employment opportunities are currently good for 
word processing operators, small-business bookkeepers, 
and computer electronics technicians. The instructional pro- 
gram is initially focusing on job training in these areas but is 
designed to be responsive to employer needs. 

The vocational computing program at Grand Prairie is 
laboratory based and provides extensive hands-on practice. 
The oldest and best-developed element of the program is 
word processing. In their classroom, junior and senior stu- 
dents develop their skills using ten TRS-80 Model III micro- 
computers and Radio Shack's SuperSCRIPSIT software. 
Output is directed to one of four Radio Shack DMP-200 
printers for draft or practice documents, or to a Radio Shack 
Daisy Wheel II printer for letter-quality copies of finished 
work. 

The training in word processing is directed by an experi- 
enced Vocational Office Education teacher. After thorough 
grounding in SuperSCRIPSIT, students gain valuable "real 
world" experience by applying their skills to many routine 
tasks required in school operation. In addition to standard 
correspondence jobs, word processing students handle 
such tasks as preparation of the school newspaper and 
provide assistance with the academic handbook. New word 
processing applications are often suggested by visitors who 
come to observe the class. 

Word processing was the initial element in Grand 
Prairie's vocational computing endeavor. Other instructional 
areas soon followed, to expand the offerings into a compre- 
hensive office automation program. Radio Shack's PROFILE 
software opened the area of data management to students. 
The powerful data-handling capabilities of PROFILE quickly 
generated numerous ideas for useful applications around the 
school. 



Each of these, in turn, provided additional practical ex- 
perience for students in the program. The most recent addi- 
tion to the office automation program is spreadsheet analy- 
sis. The class is learning to use the popular VISICALC 
program to perform common business calculations and to 
plan and forecast. 

The impact of Grand Prairie High School's vocational 
computing program has far exceeded the original goal of 
providing job training to students. A variety of spin-offs have 
been observed. The visibility, to members of the faculty, of 
early word-processing products (school newspaper, hand- 
books, correspondence, homework assignments) helped to 
stimulate curiosity and teacher interest in computing. This 
teacher interest led to the establishment of an after-school 
computer instruction program for school staff members. So 
far, eighty employees of the Grand Prairie School District 
(half from Grand Prairie High School) have completed this 
eighteen-hour introductory course. Today, almost one fifth of 
the GPHS faculty owns a home computer, and ninety percent 
wish to incorporate computing into their teaching within the 
next five years. 

New vocationally directed school computing programs 
have followed the pioneering lead of the office automation 
program at Grand Prairie High School. The most ambitious of 
these is a two-year vocational training program in Computer 
Electronics and Robotics, to address the rapidly growing 
need for technicians to service computers and automated 
manufacturing equipment. In addition, the business depart- 
ment of the high school is finalizing plans to provide compre- 
hensive training in automated business applications for 
general accounting, banking and finance, marketing and 
sales, insurance, real estate, and taxes. 

The experiences of Grand Prairie High School can pro- 
vide a model for other schools. Educators who are currently 
planning school computing programs for their districts 
should seriously consider an initial focus on the development 
of a program of vocational computing. There are a number of 
advantages to the approach. 

Though an instructor of vocational computing requires 
more specialized technical training than a classroom teacher 
using computers to support instruction in a non-computing 
subject, a significant educational impact can be made by 
training only a few vocational teachers to use computers. In 
addition, start-up hardware costs are often less. Excellent 
software— the same used in business applications— is avail- 
able now. Additionally, the needs of local employers are the 
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best indicators of the direction that a vocational computing 
program should take, and these employers will often provide 
hardware, software, and/or teacher training in addition to 
valuable advice. 

Compared to a microcomputer used for instructional 
support, a microcomputer devoted to vocational training is 
almost always operated for more hours per week. This in- 
creased usage and the sophisticated applications software 
tend to make a vocational computing center highly visible. 
This increases the likelihood that the experience of Grand 
Prairie will be repeated— the vocational computing labora- 
tory will stimulate further teacher interest in computing 
and serve as a center for training teachers in computing 
fundamentals. 

All three forms of educational computing— administra- 
tive, instructional support, and vocational— are necessary to 
a comprehensive program of school computing. It is not the 
intent of this article to minimize the value of computing in 
support of the existing instructional program. The greatest 
impact of computing on education will come in that sector. 
But to get to that point, an administrator's wisest move at this 
time may be to concentrate initial efforts on development of a 
sound program of vocational computing. JM 



Si 



COD 1 



changed from the current value to the number of the page 
you want to begin printing on. After changing the page 
number option, press fENTER) and print to the end of the 
document. 

5. When printing is completed and your document re- 
appears on the screen, use (shift] QD to position the 
cursor at the beginning of your now headless document. 
Now type QUO GD to recall the text which was temporarily 
moved to the disk. 

From this point onward, you may do whatever you want 
with the text as an entire unit or in newly defined blocks. By 
using the SuperSCRIPSIT "Begin numbering as page" print, 
option, the writer is encouraged to break up long documents 
into smaller chapters which may be stored as individual 
documents. This allows for much easier insertions and dele- 
tions of blocks of text and may be found to be a great 
convenience feature of SuperSCRIPSIT, 

Editor's note: Here is another way to print a portion of a 
document using SuperSCRIPSIT. 

1, Surround only the section of the document that you 
want to print with block markers. Do a CUD GD at the begin- 
ning and a C@D dD at the end of the section. 

2. Then press dD GD for Block action command and CED 
to print the block. When the print menu appears, enter the 
correct page number by the "Begin numbering as page 
prompt: " and print the document. Only the section enclosed 
within the block markers will be printed. JM 



William O'Connell 
41 Marland Road 
Worcester, MA 01606 



You have typed out your long article or report using 
SuperSCRIPSIT and are standing over your daisy wheel 
printer watching it do its magic. Suddenly two blank pages go 
zipping by What happened? You hit the (break) key and 
throw the document into view mode. Then by advancing the 
cursor to the suspect point, you find the reason— two acci- 
dental force-end-of-page symbols. A quick deletion of the 
unwanted symbols and then what? How do you get the 
machine to start on page twelve of the report without need- 
less duplication of the first eleven pages? Following is a 
method of forcing SuperSCRIPSIT to skip the first pages and 
begin printing on the page you wish. 

1. Position the cursor so that it appears on the first 
character of the page where you wish to resume the printing. 
Back up one character and enter an end of block symbol 
(CSDCB). 

2. Use fsTTi F t) m to position the cursor on the first 
character of the first page of the document and press C@D GD 
for a start of block symbol. 

3. Now go to Block action with a CUD CED and answer its 
prompt with QvD for Move. The disk drive will now store all the 
text from the beginning of the document to the point at which 
you wish to resume printing, and the text will vanish from the 
screen. 

4. Select the print option by using C@D CED and answer 
the options very carefully. On the third line below the Docu- 
ment name of the Print Menu where the prompt "Begin 
numbering as page" appears, the number should be 



Bradley Murray, S.J. 
Loyola College 
4501 N. Charles St. 
Baltimore, MD 21210 



One of the features of Scripsit sorely missed in the vastly 
improved SuperSCRIPSIT is the L,C (load, chain) command, 
which allows several Scripsit files to be merged into one. For 
example, a lawyer preparing a will could merge together 
many standard legal paragraphs, make necessary changes, 
and quickly produce a will tailored to an individual client's 
needs. At first blush, SuperSCRIPSIT does not seem to have 
this ability. Read on. 

Each paragraph to be merged is prepared as follows. 
<0>pen the document, calling it, for instance, PARI /SCR. 
Write the text, and save it in the ordinary way with C@3 COD. 
This is a SuperSCRIPSIT file. It must now be converted to an 
ASCII file, by choosing <A> for the ASCII text conversion 
utility from the main menu. The following prompt appears: 

FROM which format do you wish to convert (Scripsit/ASCII) 

Type S in order to convert FROM your SuperSCRIPSIT 
file to an ASCII file. You will then be asked: 

Name of Scripsit File: 
Respond with PARI /SCR. 

Name of ASCII file: 
Respond with PAR1/ASC. 
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Your SuperSCRIPSITfile will be converted to an ASCII file 
and saved under the name PAR1/ASC. SuperSCRIPSIT will 
return you to your text, from which a C@D C2D will return you to 
the main menu. You will then open the file PAR2/SCR; write 
your text; save it, and return to the main menu with a (W) (3D. 
Make a conversion to an ASCII file, PAR2/ASC, just as you did 
with your first file, PARI /SCR. The procedure is repeated for 
each standard paragraph you wish to save for later merging. 

Unless you think they will need future modification, you 
no longer need the original SuperSCRIPSIT files. They can be 
KILLed. 

The stage is now set for the merge. From the main menu, 
<0>pen the master file to which you will append PAR1/ASC, 
PAR2/ASC, etc. Write the text (it might only be a few words) 
and save it in the ordinary way with (W) CcD. Assume you 
saved it as MAIN/SCR. You will now respond to the main 
menu with <A> and answer the prompts, 

FROM which format do you wish to convert (Scripsit/ASCII) 

will be answered with <A> for ASCII, The prompt 

Name of Scripsit file 

will be answered with the name of your main file, in this case 
MAIN/SCR while 

Name of ASCII FILE 

will be answered with PAR1/ASC. This will re-convert the 
ASCII file PARI /ASC back to a SuperSCRIPSIT file and at the 
same time will append it to MAIN/SCR. You must now save 
this version with a dD COD, which will also bring you back to 
the main menu. From here, you can repeat the procedure 
with PAR2/ASC and append it to MAIN/ASC, which will now 
consist of the original MAIN plus PARI plus PAR2. Simply 
repeat the procedure for as many files as you wish to merge 
in MAIN/SCR. If you load one or more in the wrong order, you 
can, of course, use SuperSCRIPSIT's block move command. 




Computer Clubs 

ACSCO-SWAP 

Box 28606 

Columbus, OH 43228-0606 



Broome CoCo Club 

c /o Bucky Helmer, President 

57 Front Street 

Binghamton, NY 13015 

723-8223/724-5726 

Central Alabama Microcomputer Society 

Jon Dawkins, President 

P.O. Box 17021 

Montgomery, AL 36117 

(205) 281-8220 (President) 

(205) 272-5069 (Forum 80) 

Color Computer Club 
P.O. Box 337 
Gardendale, AL 35071 

Dal-Clif Computer Club 

Kimball H.S. 

David Gattis 

3606 S. Westmoreland at Kiest 

Dallas, TX 

243-6764 

DALTRUG TRS-80 Users Group 
UTD-Richardson, Jonnson Hall 
2601 N. Floyd Rd. 
Richardson, TX 

(214) 370-2432 

Fort Worth TRS-80 Users Group 
3006 SE Loop 820 
Fort Worth, TX 
(817) 429-7055 

Iowa City Color Computer Users Group 
c /o Susan P. Chapler 
R.R. #6 The Woods 
Iowa City, IA 52240 

K.C. South Computer Club 
Bill Baker, Secretary 
2419 Queen Ridge Dr. 
Independence, MO 64055 

(816) 252-3616 

Mid Cities TRS-80 Users Group 
UTA Arlington, Davis Hall, Room B87 
800 South Cooper 
Arlington, TX 

(817) 637-4510 

Penn-Jersey Color Computer Club 
1231 Walnut St. 
Allentown, PA 18102 

(215) 253-5733 or (215) 434-6387 

TRS-80 Users Group of Central Connecticut 
P.O. Box 1575 
Hartford, CT 06144 
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Alternate Cursor for the 
Color Computer 

This program for changing the cursor on the Color 
Computer comes from Computer Customer Services with the 
following disclaimer. 

Radio Shack does not support the use of the following 
program. Use of this program is left strictly to the user's 
discretion, and Radio Shack is not responsible for any results 
that the program may produce. 

100 ' **************************** 

* ALTERNATE CURSOR FOR * 

* THE COLOR COMPUTER * 

* VERSION 2.0 * 
**************************** 

* 1) PROTECT MEMORY FOR * 

* MACHINE LANGUAGE * 

110 '* PROGRAM (THE CURSOR * 

* ROUTINE IS 152 BYTES * 

* LONG) * 

* 2) ENTER AND RUN PRO- * 

* GRAM AS WRITTEN * 

* 3) RESPOND TO THE * 

* "START ADDRESS ?" * 

120 '* PROMPT BY ENTERING * 

* THE ADDRESS OF THE * 

* FIRST BYTE IN MEM * 

* ORY AT WHICH YOU * 

* WISH TO LOAD THE * 

* ROUTINE * 

* 4) IF THE PROGRAM RE- * 

130 '* TURNS THE "DATA * 

* ERROR" MESSAGE THEN * 

* CHECK DATA STATE- * 

* MENTS FOR ERRORS * 

* 5) AFTER A SUCCESSFUL * 
RUN TYPE : * 
<NXEXW><ENTER> * 

'* 6) START ADDRESS +99 * 

CONTAINS THE ASCII * 

CODE TO BE USE FOR * 

THE NORMAL CURSOR * 

WILL RETURN IN THE * 

EDIT MODE; BACKARROW * 
'* WILL RETURN ALTER- * 

NATE CURSOR * 

**************************** 

160 CLS 

170 INPUT "START ADDRESS" ; START 

180 FOR ADDRESS = START TO START + 151 

190 READ CODE 

200 CHECKSUM = CHECKSUM + CODE 

210 POKE ADDRESS , CODE 

220 NEXT ADDRESS 

230 IF CHECKSUM = 12660 THEN 270 

240 PRINT "DATA ERROR" 

250 PRINT "CHECK DATA LINES" 

260 END 

270 DEFUSR0 = START 

280 A = USR0 (0) 

290 END 



* 
* 
140 



150 
* 



300 DATA 026 
310 DATA 130 
320 DATA 094 
330 DATA 17 5 
340 DATA 182 
350 DATA 141 
360 DATA 001 
370 DATA 000 
380 DATA 012 



, 080 


182 , 


, 167 


141 , 


, 190 


001 , 


, 141 


000 , 


, 001 


103 , 


, 000 


126 , 


, 104 


175 , 


, 120 


182 , 


, 167 


141 , 



001 
000 
131 
088 
167 
190 
141 
001 



390 DATA 058 
400 DATA 175 
410 DATA 134 
420 DATA 103 
430 DATA 183 
440 DATA 141 
450 DATA 001 
460 DATA 000 
470 DATA 104 
480 DATA 006 
490 DATA 028 
500 DATA 141 
510 DATA 010 
520 DATA 010 
530 DATA 136 
540 DATA 018 
550 DATA 108 
560 DATA 018 
570 DATA 038 
580 DATA 129 
590 DATA 111 
600 DATA 039 
610 DATA 158 
620 DATA 167 
630 DATA 159 
640 DATA 079 
650 DATA 032 
660 DATA 038 
670 DATA 205 



, 190 


001 , 


, 141 


000 , 


, 126 


183 , 


, 183 


001 , 


, 001 


012 , 


, 000 


041 , 


, 131 


048 , 


, 040 


191 , 


, 048 


141 , 


, 191 


001 , 


, 175 


057 , 


, 000 


015 , 


, 166 


141 , 


, 167 


159 , 


, 015 


148 , 


, 018 


000 , 


, 140 


251 , 


, 018 


129 , 


, 002 


032 , 


, 008 


038 , 


, 140 


235 , 


, 014 


052 , 


, 136 


134 , 


, 132 


048 , 


, 136 


053 , 


, 108 


140 , 


, 007 


129 , 


, 003 


111 , 


, 018 


018 , 



013 
052 
001 
130 
048 
191 
141 
001 
000 
013 
109 
039 



018 
175 
018 
013 
034 
026 
093 
016 
096 
031 
016 
214 
021 
140 
018 






Poor Man's Editor II 
and Mailing Labels 

Darrin Smith 

Box 221 

Fort Ashby, WV 26719 

These two programs were written for a 48K Model III. 
POOR MAN'S EDITOR 

2 ' BY DALLAS L. POWELL 11/27/81 

4 ' REFINED BY DARRIN P. SMITH 08/23/82 

6 ' FOR TRS-80 MODEL III & LINE PRINTER VI 

10 X = 1 

20 CLS 

30 PRINT TAB( 15 ),"*** EDITOR II ***" 

40 FOR Q = 1 TO 400 

: NEXT Q 
50 ' *** EDITOR *** 
60 CLEAR 800 

: POKE 16427, 62 
70 DIM A$(10) 
80 A$(l) = CHR$(8) 

A$(2) = CHR$(9) 

A$(3) = CHR$(10) 

A$(4) = CHR$(13) 

A$(5) = CHR$(32) 

A$(6) = CHR$(64) 

A$(7) = STRING$(8,A$(5)) 

A$(8) = CHR$(95) 
90 X = 1 
100 CLS 

: INPUT "NEW PRINT <Y> OR <N> "; Y$ 
110 IF Y$ = "Y" THEN B$(X) = "" 

: ELSE 330 
120 CLS 
130 PRINT@900, "Type less than 241 characters: To end 

type @" 
140 FOR I = 1 TO 23 

SET (1,1) 

SET (127,1) 

NEXT I 
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150 
160 
170 
180 

190 



200 
210 
220 
230 



240 

250 
260 

270 

280 

290 

300 

310 



320 
330 



1$ = INKEY$ 

IF 1$ = CHR$(9) THEN 160 

FOR I = 1 TO 6 

: IF A$(I) = 1$ THEN 210 
NEXT I 

: GOSUB 380 

: GOTO 160 

ON I GOTO 230, 240, 250, 250, 310, 330 
' BK-SP TAB DN-AW ENT SP "@" 

ON ERROR GOTO 460 
Zl = LEN(B$(X)) 
Z2 = Zl - 1 
C$ = LEFT$(B$(X),Z2) 
B$(X) = C$ 
GOSUB 390 
GOTO 160 
B$(X) = B$(X) + A$(7) 
: GOSUB 390 
: GOTO 160 
Zl = LEN(B$(X)) 
IF Zl < 64 THEN Z3 = 64-Zl 

: GOTO 300 
IF Zl < 128 THEN Z3 = 128-Zl 

: GOTO 300 
IF Zl < 192 THEN Z3 = 192-Zl 

: GOTO 300 
IF Zl < 241 THEN Z3 = 241-Zl 

: ELSE 420 
Z4$ = STRING$(Z3,A$(5)) 
B$(X) = B$(X) + Z4$ 
GOSUB 390 
GOTO 160 
B$(X) = B$(X) + A$(5) 
: GOSUB 390 
: GOTO 160 



CLS 



PRINT B$(l) 
PRINT B$(2) 
INPUT "HARD COPY <Y> OR <N> ";Y$ 

THEN INPUT "Large or small (L) or 



"Y' 



340 

350 
360 

370 
380 
390 



400 
410 



420 

430 
440 
450 
460 
480 



IF Y$ = 

(S)"; L$ 

: ELSE 100 
IF L$ = "L" THEN LPRINT CHR$(31) 

: ELSE LPRINT CHR$(30) 
LPRINT B$(l) 
LPRINT B$(2) 

: GOTO 100 

B$(X) = B$(X)+I$ 
Zl = LEN(B$(X)) 

: Z2 = Zl+64 

: IF Zl = 241 THEN 420 
IF Zl > 240 THEN 420 
PRINT@64, B$(X) 

: PRINT@Z2, A$(8) 

: RETURN 
IF LEN(B$(1)) > 240 THEN 430 
IF X = 2 THEN 450 
X = X + 1 

IF LEN (B$(2)) > 240 THEN 330 ELSE 120 
RESUME 
END 



MAILING LABELS 

4 CLEAR 1000 

2 ' *************************** 

4 ' * BY DARRIN SMITH * 
6 ' * FOR MICRO COMPUTER NEWS * 
8 ' * CREATED ON * 
10 '* A 48K MODEL III * 
12 '* REFINEMENTS ARE WELCOME * 
14 **************************** 

16 CLS 

18 PRINT "FOR LINE PRINTER VI " 





: PRINT 






: PRINT 




20 


LINE INPUT 


"NAME OR BUSINESS 


30 


LINE INPUT 


"ADDRESS "; B$ 


40 


LINE INPUT 


"CITY..."; C$ 


50 


LINE INPUT 


"STATE..."; S$ 


60 


LINE INPUT 


"ZIP ..."; Z$ 


70 


INPUT "HOW 


MANY (2 TO 100) E 



N$ 
B$ 



Z$ 



N$ 



EVEN NUMBER PLEASE..."; 
M 
80 INPUT "IF EVERY THING IS SPACED CORRECT THEN PRESS 

<Y> ELSE PRESS <N> HIT 
<ENTER>.. ."; Y$ 
90 IF Y$ = "N" THEN 20 
100 M = M / 2 
110 FOR Q = 1 TO M 
120 LPRINT N$; TAB (34); 
130 LPRINT B$; TAB (35); 
140 LPRINT C$; " "; S$; 
150 LPRINT TAB(35); C$ " "; S$ 
160 LPRINT Z$; TAB(35); 
170 LPRINT 

: LPRINT 
180 NEXT Q 



Label Pi tin. 

David D. Bailey 
3962 Petite Dr. W. 
Jacksonville Beach, FL 32250 

LABEL/BAS is a program for use with SCRIPSIT or 
SuperSCRIPSIT word processing software. 

I have found it inconvenient to write labels by hand or 
block the address section of a letter to make a label. The 
program requires a disk with BASIC. If you are using 
SCRIPSIT, it can be on the SCRIPSIT disk. If you are using 
SuperSCRIPSIT, it must be on a utility disk since BASIC is not 
included with SuperSCRIPSIT. 

The program should be self-explanatory except for lines 
involving "Company." If you do not want a company name, 
press (enter) at the prompt. The printed label will not 
have an extra line when company is not used. 

I would also suggest pressing the reset button when 
changing from SuperSCRIPSIT to a disk with BASIC. Some- 
times BASIC will not load properly and "hangs up," if loaded 
directly after using SuperSCRIPSIT 

10 'LABEL/BAS 

20 'LABEL PRINTING UTILITY 

30 'BY DAVID D. BAILEY 

40 CLEAR200 

50 POKE 16409,0 

60 X$="LABEL PRINTING UTILITY" 

: SG$=STRING$(63,136) 
70 CLS 

PRINT TAB(20)X$ 

PRINT 

LINE INPUT "NAME ? "; G$ 
80 LINE INPUT "COMPANY ? "; L$ 
90 LINE INPUT "ADDRESS ? "; B$ 
100 LINE INPUT "CITY ? "; C$ 
110 E$=" " 

120 LINE INPUT "STATE ZIP ? "; D$ 
130 CLS 

PRINT TAB(20)X$ 

PRINT 

PRINT 

PRINT "LABEL TO PRINT:" 

PRINT 
140 PRINTG$ 
150 IF L$="" THEN 170 
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160 PRINT L$ 

: PRINT B$ 
: PRINT C$; ", "; 
: PRINT D$ 
: GOTO180 
170 PRINT B$ 

PRINT C$;", "; 

PRINT D$ 

GOTO180 
180 PRINT 

PRINT SG$ 

PRINT 

PRINT TAB(10) "SELECT <P> TO PRINT <E> TO 
EXIT" 
190 A$=INKEY$ 
200 IFA$="E" THEN 40 
210 IFA$="e" THEN 40 
220 IFA$="P" THEN 250 
230 IFA$="p" THEN 250 
240 GOTO 190 
250 LPRINT G$ 
260 IF L$="" THEN 280 
270 LPRINT L$ 
280 LPRINT B$ 
290 LPRINT C$; ","; E$D$ 
300 LPRINT 

: LPRINT 
310 CLS 

PRINT TAB(20)X$ 

PRINT 

PRINT 

PRINT TAB(20)"<R> REPEAT" 
320 PRINT TAB(20)"<N> NEW NAME" 
330 PRINT rAB(20)"<E> EXIT TO BASIC" 
340 PRINT TAB(20)"<T> EXIT TO TRSDOS Ready" 
350 PRINT 

PRINT SG$ 

PRINT 

PRINT TAB(25)"SELECT" 
360 AS=INKEY$ 
370 IF A$="R" THEN 250 
380 IF A$="r" THEN 250 
390 IF A$="N" THEN 40 
400 IF A$="n" THEN 40 
410 IF A$="E" THEN POKE16409.1 
: CLS 
: END 
420 IF A$="e" THEN POKE16409.1 
: CLS 



430 



: END 
IF A$="T" 
: CLS 
: CMD"S" 

440 IF A$= 
: CLS 
: CMD"S" 

450 GOTO360 



THEN POKE 16409,1 



•t" THEN POKE 16409,1 



Little 01' Label Maker 



Paul Martino 

Bob Rich Schroeder Trucking Inc. 

61 Napoleon St. 

San Francisco, CA 94124 



Necessity being the mother of invention, here is another 
label maker. After running a 2,000 name list with Profile 3 + , 
we found some 60 errors that we made in names or ad- 
dresses. Unfortunately, I couldn'tthinkof an easy wayto print 
individual labels with Profile 3 + without the program reading 
the whole file to print each label and then re-reading again for 
the next label. 



My program gives you four options for salutations to 
eliminate some repetitive typing, an option for the number of 
labels you want of each, and an option for using your local 
city, state and zip code or to insert a different one. 

It runs fast enough the way it is, so deleting the REMS 
and compressing won't make much difference. You could 
alter lines 80-100 to allow for printing of more labels. You 
could also eliminate lines 370, 380, and 430 to eliminate 
using the person's record number if it's not important to your 
files. If you do so, add one LPRINT statement to force a line 
feed to keep your label assignment correct. 

When I first got my computer and didn't understand 
programming I depended on your newsletter for programs 
and hints. I hope this little program will help some other 
novice gain some insights into the functions and abilities of 
the microcomputer. 

The program runs on Model III disk BASIC but can 
easily be altered for non disk users by eliminating the line 
input statements and using simple inputs instead. 

Congratulations on Profile 3 + . I can now sort 1,800 
records of 80 characters each in less than three minutes. It 
used to take me 45 minutes to insert 1 25 records into a 800 
record base with the old version of Profile. 

10 REM**** LITTLE OL ' LABEL MAKER 

20 REM**** BY Paul 1. Martino, S.S.F. CA. 

30 REM**** NO RIGHTS RESERVED, USE PROGRAM FREELY 

40 REM**** ALIGN YOUR LABELS IN PRINTER BEFORE 

RUNNING PROGRAM 
50 CLEAR 1000 
CLS 

: GOSUB 530 
CLS 

HOW MANY LABELS OF EACH DO YOU WANT 



60 

70 

80 PRINT@450," 
? <l-9> 

90 Q$=INKEY$ 

: IF Q$="" THEN 90 
100 N=VAL(Q$) 

: IF N<1 THEN GOTO 90 
110 CLS 
120 PRINT" 
130 PRINT 

: PRINT" 
140 PRINT" 
150 PRINT" 
160 PRINT" 
170 PRINT" 
180 PRINT 

: PRINT" 
190 K$=INKEY$ 

: IF K$="" THEN 190 
IF K=l THEN A$="MR. & 
IF K=2 THEN A$="MRS . 
220 IF K=3 THEN A$="MR. 
230 IF K=4 THEN A$="MS. 
240 ID K=5 THEN CLS 

PRINT@470 , "PROCESSING TERMINATED" 
PRINT@536, "REMOVE DISKETTES" 
END 
250 CLS 
260 PRINT A$ 
270 LINEINPUT"NAME ";B$ 
280 CLS 

: PRINT A$+" "+B$ 
290 LINEINPUT"ADDRESS ";C$ 
300 CLS 

: PRINT A$+" "B$ 

: PRINT " "+C$ 
310 PRINT"IS CITY SAN FRANCISCO, CA. (Y OR N) 
320 K$=INKEY$ 

: IF K$="" THEN 320 



200 
210 



SALUTATION SELECTION 

1) MR.& MRS. 

2) MRS. 

3) MR. 

4) MS. 

5) END PROGRAM 

< ENTER YOUR SELECTION 1-4 > 



ELSE K=VAL(K$) 
MRS. 
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330 

340 



350 
360 



370 
380 
390 
400 
410 
420 
430 

440 
450 

460 
470 
480 



490 
500 
510 
520 
530 
540 
550 
560 
570 
580 
590 
600 
610 
620 



IF K$="Y" THEN D$="SAN FRANCISCO, CA. 94080" 

: GOTO360 
PRINT 
: LINE INPUT "WHAT IS THE CITY AND ZIP CODE 
";DD$ 
D$=DD$+" " 
CLS 

PRINT A$+" " + B$ 
PRINT" "+C$ 
PRINT" "+D$ 
LINE INPUT" WHAT IS REC # ";FF$ 
F$=FF$ 
CLS 

PRINT A$+" "+B$ 
PRINT" "+C$ 
PRINT" "+D$ 
PRINT 

: PRINT"("+F$+")" 
PRINT @470,"IS ENTRY OK <Y OR N> 
K$=INKEYS 

. IF k$="" THEN 450 
IF K$="N" THEN 110 
FOR X=l TO N 
LPRINT A$;B$ 
LPRINT C$ 
LPRINT D$;E$ 
LPRINT 
LPRINT F$ 
LPRINT 
NEXT X 
GOTO 110 
END 

PRINT@64 ,STRING$(64 , 188) ; 
PRINT@896,STRING$(64,188); 
PRINT@467, "LITTLE OL' LABEL MAKER 
PRINT@536,"PAUL MARTINO 
PRINT@602, "01/20/83 
FOR 1=128 TO 896 STEP 64 
PRINT@I,CHR$(191); 
PRINT@I+63,CHR$(191); 
NEXT I 

FOR T=l TO 1200 
: NEXT T 
: RETURN 



AD$(20), CS$(20), Z$(40), CT$(40) 



JH 



Zip Code Files 

Mark C. Smith 
2225 Shattuck Rd. 
Saginaw, Ml 48603 

Most programmers eventually find a use for data files in 
which a name, street address, city, state and zip code are all 
stored on disk or cassette. This program is a demonstration 
one in which the last three fields (city, state, zip) are simply 
abbreviated. Only the zip code is entered and stored for each 
record. A master file of zip codes along with the correspond- 
ing city and state is made. This file is called "ZIPFILE." In even 
modest applications this can save entering time and, obvi- 
ously, magnetic storage space. I plan to use this technique in 
every data file application I can. 

The program uses a variable length file so be sure to 
answer the BASIC "How Many Files?" prompt correctly with 
the number of files followed by a V. I wrote this program on a 
48K Model III with dual floppy disk drives. It should be 
applicable to other models and many new or existing pro- 
grams. I am 16 years old and have been programming for 
around 2 years now. Thank you for a well written publication 
and good luck to all who try the idea! 



"ZIP D E M" 



100 'DEMO OF ZIPFILE TECHNIQUE 
110 'IN MODEL III DISK BASIC 1.3 
120 'BY MARK C. SMITH 10 MAY, 1982 
130 CLEAR 3000 
140 DEFINT A-Z 

: DIM N$(20) 
150 CLS 
160 GOSUB 1000 

: GOSUB 5000 
165 'INPUT NAMES 
170 INPUT "HOW MANY NAMES" 
180 IF A>20 THEN 170 
190 FOR B=l TO A 
200 CLS 

PRINT TAB(23): 

PRINT (§125, B; 

PRINT (§64, ""; 
210 LINE INPUT "NAME:"; N$(B) 
220 LINE INPUT "STREET ADDRESS:"; AD$(B) 
230 INPUT "ZIPCODE"; IZ$ 
240 IF VAL(IZ$)>99999 THEN 230 
250 GOSUB 2000 
260 NEXT B 
265 'LIST NAMES 
270 CLS 

: PRINT "HERE IS THE LIST: " 
280 FOR B=l TO A 
290 PRINT 

PRINT B;"»-" 

PRINT N$(B) 

PRINT AD$(B) 

PRINT CS$(B) 
300 IF B/2=INT(B/2) AND BOA THEN PRINT 

PRINT 

PRINT "ANY KEY. .." 

GOSUB 4510 

CLS 
310 NEXT B 
320 GOSUB 3000 

CLOSE 

PRINT (§920, "** ANY KEY **" 

GOSUB 4500 

FOR X=l TO 15 

PRINT 

NEXT 

PRINT TAB(25); "PROGRAM TERMINATE 

END 

999 'GET ZIPCODE FILE 

1000 GOSUB 3500 
FIELD 1 , 2 AS NB$ 
GOSUB 4000 
GE r 1,1 
D=CVI(NB$) 
FIELD 1, 33 AS CY$, 5 AS ZP$ 

1010 IE D=l THEN RETURN 
ELSE FOR B=2 TO D 
GET 1 , B 
Cl$=CYS 
GOSUB 1500 
CT$(B-1)=C1$ 
Z$(B-1)=ZP$ 
NEXT 
1020 RETURN 

'REMOVE SPACES FROM Cl$ 
: ELSE C1$=LEFT$(C1S,INSTR(C1$," 
: RETURN 

IF INSTR(C1$," ")=0 THEN RETURN 
'CHECK FOR ZIP 
2000 FG=0 

IF D<2 THEN 2040 
ELSE FOR E=l TO D-l 
IF FG>0 THEN 2020 
IF Z$(E)=IZ$ THEN FG=E 
2020 NEXT E 

2030 IF FG>0 THEN GOSUB 2500 
: RETURN 



1499 



1500 
1999 



2010 



")) 
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2039 
2040 
2050 



2060 



'ENTER AND SAVE NEW ZIP INFO 

PRINT "ZIP NOT ON FILE. . . " 

LINE INPUT "PLEASE ENTER CITY, STATE (EX. 

SAGINAW, MI.) 

: "; 1$ 

FG=D 

D=D+1 

LSET ZP$=IZ$ 

LSET CY$=I$ 

PUT 1 , D 

C1$=CY$ 

GOSUB 1500 

CT$(D-1)=C1$ 

Z$(D-1)=IZ$ 

FG=D-1 

GOSUB 2500 

RETURN 

'ASSIGN CITY, STATE & ZIP TO VARIABLE FOR LISTING 
CS$(B)=CT$(FG)+" "+IZ$ 
: RETURN 

'PUT NUMBER OF ZIPS ONTO DISK 
FIELD 1, 2 AS NB$ 

LSET NB$=MKI$(D) 

PUT 1 , 1 

RETURN 
'OPEN ZIPFILE 

OPEN "R", 1, "ZIPFILE", 38 
: RETURN 

'CHECK FOR PREVIOUSLY CREATED FILE 
IF LOF (1)=0 THEN LSET NB$=MKI$(1) 
: PUT 1 , 1 
RETURN 

'RETURN ON ANY KEY 
K$="" 
K$=INKEY$ 

: if K$="" THEN 4510 
: ELSE RETURN 
A$=STRING$(63,191) 
: B$=CHR$(236)+"Z IP DEM" 
: V=896 
FOR X=l TO 7 

PRINT @V, CHR$(255)+CHR$(255); 

FOR Y=l TO 80 

NEXT 

PRINT @V, A$; B$; 

FOR Y=l TO 80 

NEXT 

NEXT 

PRINT @v, CHR$(255); 
: B$="Z IP DEM" 
: V=V + 38 
FOR X=l TO 15 

PRINT @(V-64*(X-1)-X-1), CHR$(255); 

PRINT (a(V-64*(X~l)-X).B$ 

FOR Y=l TO 30 

NEXT 

NEXT 

PRINT @64, ""; 

RETURN JH 



Better Cursor Response 
for the Directory Menu 

Henry P. Stevens 
1024 Coyote Rd. 
San Jose, CA 95111 

Recently while looking through back issues of the 
TRS-80 Microcomputer News, searching for programs that I 
could use with my newly installed disk drives, I spotted Mr. 
Ditucci's Directory/Menu program in the November 1981 
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MODIFIED BY: HENRY P. STEVENS 



1024 COYOTE RD 
SAN JOSE, CA. 951 11 



*** 
*** 



issue. I started using it right away, and for the same reasons 
as those expressed by Mr. Ditucci, I find the routine tremen- 
dously helpful. But I do have one complaint. The cursor does 
not always respond promptly to the single tap of a key. To 
correct the problem, I have installed a machine language 
"Keyboard scan and cursor blink" subroutine. The fully relo- 
catable code is packed into string K$ by lines 130 and 140. 
You will find your cursor much more responsive with this 
modified version of the routine. 

10 REM*** 9 FEB 83 NO RIGHTS RESERVED *** 

20 REM*** MOD III DIRECTORY /MENU PROGRAM *** 

30 REM*** ORIGINAL PROGRAM WRITTEN BY: JAMES C. 

DITUCCI *** 

40 REM*** NOV 81 ISSUE TRS-80 NEWSLETTER PAGE 16 
*** 

60 REM*** 

70 REM*** 

80 REM*** 

90 CLEAR 1000 

100 ON ERROR GOTO90 

105 CMD "B'V'OFF" 

110 K$=STRING$(191,"Z") 

120 X1#=VARPTR(K$) 

: X#=PEEK(Xl#+2)*256+PEEK(Xl#+l ) 

: IF X#>32767 THEN X#=-l*(65536-X#) 
130 A*X# 

: FOR A-ATOA+191 
140 READ Y 

: POKE A, Y 
150 NEXT 

: RESTORE 
160 CMD"D 

: 0" 

: POKE15367.49 
170 PRINT CHR$(15) 

: PRINT@960,"USE ARROWS TO POSITION CURSOR-PRESS 

<ENTER> TO SELECT PROGRAM"; 
180 D - PEEK( 16419) 

: POKE16419.143 

: P$="" 
190 DEFUSR0=X# 
200 V»USR(0) 

210 REM ***EXECUTE PROGRAM SELECTED *** 
220 FOR X=0 TO 11 

: 0=PEEK(V+X) 

: IF C<32 THEN C=(C+64) 
230 IF C=32 THEN NEXT ELSEP$=P$+CHR$(C) 

: NEXT 
240 LP$=LEFT$(P$,7) 

: IF LP$="DiskDri" OR LP$="Ready"THEN RUN 
250 IF LP$="DRIVE 

1 "THEN CMD"D 
1" 

POKE15367.48 
GOTO170 
260 IF LP$="DRIVE 

: 0" THEN RUN ELSE POKE16419.D 
270 L = LEN(P$) 

: IF RIGHT$(P$,4)="/CMD" P$=LEFT$(P$,L-4) 

: GOTO 300 
280 IF RIGHT$(P$,4)="/BLD" THEN P$="DO "+P$ 

: GOTO 300 
290 GOSUB310 

: RUN P$ 
300 GOSUB310 

: CMD"I",P$ 
310 ZB$="NOW LOADING "+CHR$(244)+CHR$(245)+CHR$(246) 

+" "+p$ 
320 ZN$=STRING$(63,32) 

: Z=960+(64-LEN(ZB$))/2 
330 PRINT CHR$(21); 
FOR X=1T05 
PRINT (?960,ZN$; 
FOR T=1TO30 



20 



TRS-80 Microcomputer News, August 1983 



: NEXT T 
340 PRINT @Z,ZB$; 
FOR T=1TO90 
NEXT T 
NEXT X 

PRINT CHR$(21); 
CMD"B","ON" 
RETURN 
350 DATA 33, 1, 60, 43, 126, 245, 1 , 32 , 255, 17, 

255, 255, 19, 58, 255 
360 DATA 56, 187, 32, 2, 24, 26, 241, 245, 119, 58, 

64, 56, 254, 1, 40 
370 DATA 49, 254, 8, 40, 49, 254, 16, 40, 78, 254, 

32, 40, 96, 254, 64 
380 DATA 40, 125, 16, 216, 13, 40, 2, 24, 249, 30, 

255, 28, 58, 35, 64 
390 DATA 190, 32, 5, 241, 245, 119, 24, 194, 58, 35, 

64, 119, 62, 255, 60 
400 DATA 187, 40, 184, 24, 27, 241, 195, 154, 10, 17, 

64, 255, 20, 183, 237 
410 DATA 82, 241, 126, 245, 62, 60, 188, 56, 225, 40, 

223, 25, 241, 126, 245 
420 DATA 24, 196, 1, 128, 255, 16, 254, 13, 32, 251, 

24, 145, 17, 64, 255 
430 DATA 20, 25, 241, 126, 245, 62, 32, 190, 32, 194, 

241, 33, 1, 60, 43 
440 DATA 126, 245, 24, 185, 17, 15, 255, 20, 62, 255, 

60, 189, 40, 175, 62 
450 DATA 64, 189, 40, 170, 62, 128, 189, 40, 165, 62, 

192, 189, 40, 160, 183 
460 DATA 237, 82, 241, 126, 245, 24, 152, 17, 15, 

255, 20, 25, 241, 126, 245 
470 DATA 62, 32, 190, 32, 139, 17, 4, 255, 20, 25, 

24, 186 JH 




Supershopper for the 
PC-1 

John Graham 

2650 N. W. 63rd Street 

Seattle, WA 98107 

This program may amuse those who shop calculator-in- 
hand. You may enter thirty items. Since the string variable can 
only hold seven letters, abbreviate longer items or expect to 
lose the tail end of a long name. You may enter the number of 
each item wanted. The program will keep a running total of 
how much you have spent. 

When asked "NEW, OLD OR ADD?," enter NEW to 
make a list (use NEW at no other time), ADD to add to a list, 
and OLD to review or enter prices to a list. You may review, 
BREAK and then ADD, but you cannot ADD once you begin 
entering prices unless you play with variable G. 

The program in OLD/E (entry) mode will ask for an item. If 
you enter a name that is on the list, the computer will display 
the item name and ask for a price. Enter for a subtotal. If you 
enter any positive number, the program will multiply by the 
number of items and add this to the total. It will then scratch 
the item off the list. Reviewing an empty list yields the grand 
total. 

If you fetch an item from the end of a long list, expect a 
frustratingly long wait. The program will move items forward 
into "blank" spaces. This is some help but readers may see 
an improved approach. With demands on flexible memory, 
this program occupies all but 27 steps, so don't add much 
without picking up memory somewhere. 

10 PAUSE " SUPPERSHOPPER" 

20 INPUT " NEW, OLD OR ADD?", A$ 

: IF A$ = "ADD" THEN 265 
30 IF A$ = "NEW" THEN 260 
40 PAUSE "YOUR SHOPPING LIST" 

: D = 
50 FOR B = 8 TO 38 

: E = B - 7 

: C = B h 
60 IF A(C) < i 
70 IF A(C) > i 
80 IF A$(B) = 
90 PAUSE £; " 

: NEXT 
100 B = 38 

: NEXT B 

: IF D > THEN 120 
110 PAUSE "LIST IS EMPTY" 

: GOTO 250 
120 INPUT "REVIEW OR ENTRY? R OR E", A$ 
130 IF A$ = "R" THEN 40 
140 INPUT "ITEM TO ENTER?" A$ 
150 FOR B = 8 TO 38 

: C = B + 31 
160 IF A$(B) = "" THEN 200 
170 IF A(C) > THEN 180 
175 D = B + 1 

A$(B) = A$(D) 
D = C + 1 
A(C) = A(D) 
A(D) = -1 

IF A(C) < NEXT B 
180 IF A$ = A$(B) THEN 210 
190 NEXT B 
200 PAUSE "NAME NOT ON LIST" 

: GOTO 100 



31 

NEXT B 
LET D = 1 
'" THEN 100 
";A(C); A(B); "(S)" 
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210 D = B + 62 

: PAUSE "ENTER PRICE OF "; A$(B) 

: INPUT " $ ?", A(D) 
220 E = A(C) * A(D) 

: IF A(D) = THEN 300 
230 PRINT " "; A(C); A$(B); " FOR $"; E 
240 F = F + E 

: A(C) = A(C) * -1 

: GOTO 100 
250 PRINT "YOUR TOTAL $" ; F 

: PRINT "GOODBYE" 

: END 
260 PAUSE "ENTER 30 ITEMS" 

PAUSE " 7 LETTERS /ITEM" 
CLEAR 
G = 8 

265 IF G > 36 THEN 290 
270 FOR G = G TO 37 

: INPUT "ENTER ITEM", A$(G) 
275 PAUSE "" 

: IF A$(G) = "" THEN 290 
280 C = G + 31 

: INPUT "HOW MANY?", A(C) 

: NEXT G 
290 PRINT "END LIST" 

: END 
300 PRINT "SUBTOTAL $" ; F 

: GOTO 210 -Hi 



Shopper and Code 
for the PC-1 

Richard O. Sabine 
113 Greenpark Dr. 
Mobile, AL 36609 

The first program Code is a lot of fun and has found its 
way into several subroutines. It is self documenting. 

10 "CODE" 

20 "C" CLEAR 

: PRINT" THIS PROGRAM WILL OUTPUT ALL 
POSSIBLE ELEMENT COMBINATIONS OF" 

21 PRINT "ELEMENTS ENTERED AN ELEMENT CANNOT 

EXCEED 7 CHARACTERS." 

22 PRINT " YOU CAN SET AN ELEMENT TO EQUAL LETTERS, 

WORDS, OR NUMBERS." 

23 PRINT "ENTER INDIVIDUAL ELEMENTS ONE AT A TIME. 

ENTER (.) TO INDICATE STOP" 

24 PRINT "9 ELEMENTS MAX." 

25 Y = 1 

: X = 1 

29 FOR Z = 11 TO 19 

30 INPUT "ELEMENT = "; A$(Z) 

31 IF A$(Z) = "." THEN 50 
35 Y = Y + 1 

40 NEXT Z 

50 GOSUB "COUNTER" 

70 IF A(Y) = 1 END 

90 FOR Z = 1 TO Y 

100 IF A(Y) = 1 PRINT A$(Z + 10) 

110 NEXT Z 

130 PRINT " " 

140 GOTO 50 
200 "COUNTER" 
210 X = 1 

220 FOR Z = 1 TO (Y + 1) 
230 W = (A(Z) <> X) 
: X = X * A(Z) 
240 A(Z) = W 
250 IF X = LET Z = (Y + 1) 



260 NEXT Z 
270 RETURN 

Shopper is a handy little thing to carry grocery shopping. 
To speed up entries it is designed so no decimal point should 
be entered. Before using this program, you should always 
type CQDCDQDQDCED (enter) . I found it best not to in- 
clude the CLEAR statement. If in the program the automatic 
off feature of the PC-1 shuts off the machine, just run the 
program again; no values will be lost. If you are like me, you 
will want to know when you have reached your budget— thus 
the purpose of the dollar limit. Remember the decimal point is 
assumed. In line one the value of T can be altered to describe 
the tax in your area. 

1 "G" 
PRINT "CASHIER PROGRAM" 
PRINT "****************" 
T =.06 

2 INPUT "DOLLAR LIMIT = ?"; R 
: R = R / 100 

3 INPUT "PRICE = ?"; A 



10 



IF A = 



/ 100 
GOTO I 



B = B + A 

: PRINT USING 
IF R <= ((B + (B 
GOTO 3 
C = INT ((B +(B*T)) ' 

: C = C / 100 
PRINT USING ; "TOTAL 

: GOTO 3 
END 



###.##"; A 
T)) BEEP 5 



.5) 



$"; C 



A Modified Bubble Sort 
for the PC-1 



Edward M. Cohen 
Keene, NH 03431 



The following program is a modified bubble sort which 
I call bubble sort. This program sorts 1 50 numbers. Enter 999 
to terminate input. 

1 "A" CLEAR 

: PRINT "MOD BUBBLE SORT" 
: N=27 

2 INPUT " #?"; A(N) 

: PRINT A(N) 

3 IF A(N) = 999 GOTO 18 

4 N = N + 1 

: GOTO 2 
18 N = N - 1 
: B = N 
: REM SORT 

21 IF B = 26 THEN 33 

22 J = 26 

23 FOR I = 27 TO B - 1 

: IF A(I) <= A(I+1) THEN 29 
25 T = A(I) 

A(I) = A(I+1) 
A(I+1) = T 
J = I 
29 NEXT I 

: B = J 
: GOTO 21 
33 FOR X = 27 TO N 
PRINT A(X) 
NEXT X 
END ^ 
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CoCo Business 
Programs 



Marty Ivins 
RR 6, Box 88B 
Lincoln, NE 68502 



Here are six Color Computer programs I have been 
using for some time with some success in my business. The 
first three are to compile/revise, alphabetize, and print out an 
address list. They are developed along the lines of the guides 
in the color disk manual. They should be quite easily up- 
graded and expanded to be more useful in anybody's com- 
puter operation. The last three programs are developed 
to provide agricultural sprayer calibration information. They 
are very broad and may be used to calibrate and find useful 
rates, and plan application mixtures for many types of agri- 
application information. They are now used to calibrate 
everything from field sprayers to orchard and vegetable 
sprayers. 

ALPHA 

10 CLEAR 4000 

20 DIM ARRAY $(300) 

30 0PEN"D", #1, "MAIL/DAT", 69 

40 FIELD #1, 69 AS INF0$ 

50 IF LOF(1)=0 THEN PRINT"END" 

: END 
60 FOR 1=1 TO LOF(l) 
70 GET #1, I 
75 ARRAY$(I)=INFO$ 
80 NEXT I 
100 FOR J=l TO I 
110 FOR K=J TO I 

120 IF ARRAY$(J) < ARRAY$(K) THEN 160 
130 TEMP$=ARRAY$(j) 
140 ARRAY$(J)= ARRAY $(K) 
150 ARRAY $(K)= TEMP $ 
160 NEXT K 
170 NEXT J 
180 FOR N=l TO I 
190 LSET INFO$=ARRAY$(N) 
200 PUT#1, N 
210 NEXT N 

220 IF EOF(l)=-l THEN CLOSE #1 
230 GOTO 90 
240 CL0SE#1 
250 END 

COMPREV 

10 CLS 

20 PRINT (3100, "THIS IS A PROGRAM OF A 

MAILING LIST COMPILER AND A REVISION 

SEGMENT" 
30 PRINT (3164, "DO YOU WISH TO COMPILE A 

MAILING LIST? OR TO REVISE YOUR LIST?" 

40 PRINT (§260, "TO COMPILE PRESS 'C'" 
50 PRINT (§292, "TO REVISE PRESS 'R'" 
60 AN$=INKEY$ 
70 IF AN$="C" THEN 100 
80 IF AN$="R" THEN 390 
90 GOTO 60 
100 CLEAR 2000 

110 OPEN"D", 1, "MAIL/DAT", 69 
120 FIELD#1, 15 AS LAST$, 10 AS FIRST$, 15 AS 

ADDRESS$, 10 AS CITY$, 2AS STATE$, 5AS ZIP$, 12 

AS PH0NE$ 
130 IF LOF(1)=0 THEN R=l 

: GOTO 190 
140 FOR R=l TO L0F(1) 
150 GET #1, R 
160 NEXT R 



170 



180 
190 
200 
205 
210 
220 
230 
240 
250 
260 
270 
280 
290 
300 
310 
320 
330 
340 
350 
360 
361 
370 
375 
376 
380 
390 
400 
410 
420 
430 
440 
450 
460 
470 
480 
490 
500 
510 
520 
530 
540 
550 
560 



570 
580 
590 
600 
610 
620 
630 
640 
650 
660 
670 
680 
690 
700 
710 
720 
730 
740 

750 
760 
770 
790 
800 
810 
820 

830 
840 
850 



FIELD#1, 15 AS LAST$, 10 AS FIRST$, 15 AS 
ADDRESS$, 10 AS CITY$, 2 AS STATE$, 5 AS ZIP$. 

12 AS PHONE $ 
R=R+1 
CLS 

PRINT @64 

INPUT "LAST NAME";L$ 
INPUT "FIRST NAME";F$ 
INPUT "ADDRESS" ;A$ 
INPUT "CITY";C$ 
INPUT "STATE" ;S$ 
INPUT "ZIP CODE";Z$ 
INPUT "PHONE N0.";P$ 
LSET LAST$=L$ 
LSET FIRST$=F$ 
LSET ADDRESS$=A$ 
LSET CITY$=CS 
LSET STATES=S$ 
LSET ZIP$=Z$ 
LSET PH0NE$=P$ 
PUT #1 , R 
PRINT 

PRINT "MORE DATA(Y/N)" 
AN$=INKEY$ 
IF AN$= "Y" THEN 180 
IF AN$="N" THEN 380 
GOTO 361 
CLOSE #1 
CLS 

PRINT @258 
AN$=INK£Y$ 
IF AN$="Y" 

IF AN$="N" THEN 1510 
GOTO 400 
CLS 

PRINT (3106 
PRINT (§168 
PRINT @200 
PRINT (3232 
PRINT @298 
AN$=INKEY$ 
IF AN$="" THEN 510 
ON VAL(ANS) GOSUB 550 
GOTO 450 

OPEN "D", #1, "MAIL/DAT", 
FIELD #1, 15 AS LAST$, 10 

ADDRESS S, 10 AS CITY$, 2 

12 AS PHONE $ 
FOR R=l TO LOF(l) 
GET #1 , R 
CLS 

PRINT @68, 
PRINT @100, 
PRINT (3132, 
PRINT (3164, 
PRINT (3196, 
PRINT @260, 
PRINT (3292, 
AN$=INKEY$ 
IF AN$="Y"THEN 710 
IF AN$="N" THEN 1170 
GOTO 670 
PRINT (?324 
AN$=INKEY$ 
IF AN$="Y" 
IF AN$="N" 

: GOTO 770 
GOTO 720 

INPUT "NEW LAST NAME";L$ 
GOSUB 2000 

PRINT @ 324, "EDIT STREET ADD.? (Y/N)" 
AN$=INKEY$ 
IF AN$="Y" THEN 840 
IF AN$="N" THEN A$=ADDRESS$ 

: GOTO 850 
GOTO 800 

INPUT " NEW STREET ADD.";A$ 
PRINT @324, "EDIT CITY? (Y/N) 



"DO YOU WISH TO REVISE? (Y/N)" 
THEN 450 



"SELECTIONS:" 
"1)EDIT RECORD" 
"2)DELETE RECORD' 
"3) END JOB" 
"1, 2, OR 3" 



1190, 1500 



69 

AS 
AS 



FIRST$, 15 AS 
STATE$, 5 AS ZIP$, 



'RECORD NUMBER: ";R 
LAST$FIRSTS 
ADDRESS $ 
CITY$", "STATE$ 
ZIP$ 
; PHONE $ 
"EDIT THIS RECORD?(Y/N)" 



"EDIT NAME$ (Y/N)" 



THEN 760 
THEN L$=LAST$ 
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860 AN$=INKEY$ 

870 IF AN$="Y" THEN 900 

880 IF AN$="N" THEN C$=CITY$ 

: GOTO 910 
890 GOTO 850 
900 INPUT "NEW CITY";C$ 
910 PRINT @324, "EDIT STATE? (Y/N) 
920 AN$=INKEY$ 
930 IF AN$="Y" THEN 960 
940 IF AN$="N" THEN S$=STATE$ 

: GOTO 970 
950 GOTO 910 

960 INPUT "NEW STATE" ;S$ 
970 PRINT @324, "EDIT ZIP (Y/N)" 
980 AN$=INKEY$ 
990 IF AN$="Y" THEN 1020 
1000 IF AN$="N"THEN Z$=ZIP$ 

: GOTO 1030 
1010 GOTO 970 
1020 INPUT "NEW ZIP";Z$ 

1030 PRINT @324, "EDIT PHONE NUMBER? (Y/N) 
1040 AN$= INKEY$ 
1050 IF AN$="Y" THEN 1080 
1060 IF AN$="N" THEN P$= PHONE$ 

: GOTO 1090 
1070 GOTO 1040 

1080 INPUT " NEW PHONE NUMBER" ;P$ 
1090 LSET LAST$=L$ 
1100 LSET FIRST$=F$ 
1110 LSET ADDRESS $=A$ 
1120 LSET CITY$=C$ 
1130 LSET STATE$=S$ 
1140 LSET ZIP$=Z$ 
1150 LSET PHONE$=P$ 
1160 PUT #1, R 
1170 NEXT R 
1180 RETURN 

1190 OPEN "D", #1, "MAIL/DAT", 69 
1200 FIELD #1, 15 AS LAST$, 10 AS FIRST$, 15 AS 

ADDRESS$, 10 AS CITY$, 2AS STATE$, 5AS ZIP$, 

12AS PHONE$ 
1210 OPEN "D", #2, "TEMP/FIL", 69 
1220 FIELD #2, 15 AS TLAST$, 10AS TFIRST$, 15AS 

TADDRESS$, 10AS TCITY$, 2AS TSTATE$, 5AS TZIP$, 

12AS TPHONE$ 
1230 FOR R=l TO LOF(l) 
1240 GET #1, R 
1250 CLS 

1260 PRINT @ 68, "RECORD#";R 
1270 PRINT @ 100, LAST$FIRST$ 
1280 PRINT @ 132, ADDRESS$ 
1290 PRINT @164, 
1300 PRINT @ 228 
1310 PRINT @ 260 
1320 AN$= INKEY$ 
1330 IF AN$="Y" THEN 1450 
1340 IF AN$= "N" THEN 1360 
1350 GOTO 1320 
1360 LSET TLAST$=LAST$ 
1370 LSET TFIRST$=FIRST$ 
1380 LSET TADDRESS$=ADDRESS$ 
1390 LSET TCITY$=CITY$ 
1400 LSET TSTATE$=STATE$ 
1410 LSET TZIP$=ZIP$ 
1420 LSET TPHONE$=PHONE$ 
1430 J=J+1 
1440 PUT #2, J 
1450 NEXT R 
1460 CLOSE 

1470 KILL "MAIL/DAT" 

1480 RENAME "TEMP/FIL" TO "MAIL/DAT" 
1490 RETURN 
1500 END 
1510 CLS 

1520 PRINT (3261 , "PROGRAM IS CONCLUDED" 
1530 END 

2000 PRINT @324, "EDIT FIRST NAME? (Y/N)" 
2010 AN$=INKEY$ 



CITY$", "STATE$" "ZIP$ 
"PHONE NUMBER: ";PHONE$ 
"DELETE THIS RECORD? (Y/N)" 



2020 IF AN$="Y" THEN 2050 
2030 IF AN$="N" THEN F$=FIRST$ 

: GOTO 2060 
2040 GOTO 2000 

2050 INPUT "NEW FIRST NAME";F$ 
2060 RETURN 



ADD 



69 

10 AS FIRST$, 15 AS 

2 AS STATE$, 5 AS ZIP$, 



100 'THIS PROGRAM NAME IS ?ENV/BAS 

110 CLEAR 4000 

120 OPEN "D", #1, "MAIL/DAT" 

130 FIELD #1, 15 AS LAST$, 

ADDRESS $, 10 AS CITY$, 

12 AS PHONE $ 
140 FOR A= 1 TO LOF(l) 
150 CLS 
160 GET #1, A 
170 PRINT @ 64 
180 PRINT FIRST$ + LAST$ 
190 PRINT ADDRESS$ 
200 PRINT CITY$ "," STATE$ 
210 PRINT ZIP$ 

215 PRINT @232, "PRINT THIS ADDRESS? (Y/N)" 

216 Q$=INKEY$ 

217 IF Q$="Y" GOSUB 400 

218 IF Q$="N" GOTO 220 

219 GOTO 215 

220 IF A=LOF(l) THEN 310 
230 PRINT 

240 PRINT "DO YOU WANT ANOTHER NAME? (Y/N)' 

250 AN$=INKEY$ 

260 IF AN$="Y"GOTO 290 

270 IF AN$="N" THEN CLOSE#l 

: GOTO 330 
280 GOTO 250 
290 NEXT A 
300 GOTO 150 

310 PRINT @324, "END OF FILE" 
320 CLOSE #1 
330 END 
400 PRINT 

410 PRINT #-2, FIRST$LAST$ 
420 PRINT #-2, ADDRESS$ 
430 PRINT #-2, CITY$STATE$ 
440 PRINT #-2, ZIP$ 
450 RETURN 



APPLICAT 

1000 
1010 



CLS 

'THIS PROGRAM IS TO COMPUTE THE CALIBRATION OF 

ANY SPRAYER' 
1020 "THE REQUIRED DATA IS SELF-EXPLANATORY' 
1030 PRINT "ENTER THE WIDTH OF PATTERN OF YOUR 

SPRAYER IN FEET." 
1040 INPUT A 
1050 PRINT "ENTER THE GROUND SPEED THAT YOU INTEND TO 

USE IN MPH." 
1060 INPUT B 
1070 PRINT "ENTER THE AMOUNT OF HERBICIDE OR 

PESTICIDE YOU INTEND TO APPLY PER ACRE IN 

PINTS OR POUNDS." 
1080 INPUT C 
1090 PRINT "ENTER THE NUMBER OF GALLONS PER ACRE OF 

WATER YOU WISH TO APPLY." 
1100 INPUT D 
1110 PRINT "HOW LARGE IS YOUR SPRAYER TANK IN 

GALLONS?" 
1120 INPUT E 
1130 PRINT "HOW MANY NOZZLES DOES YOUR SPRAYER 

HAVE?" 
1140 INPUT F 
1150 CLS 

1160 PRINT "WIDTH- "A"FT" 
1170 PRINT "SPEED- "B"MPH" 
1180 PRINT "PRODUCT-"C"PTS OR LB/ACRE" 
1190 PRINT "WATER- "D"GAL/ACRE" 
1200 PRINT "TANK- "E"TOTAL GALS" 
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1210 
1220 

1230 
1240 
1250 
1260 

1270 
1280 
1290 
1300 

1310 

1320 

1330 
1340 
1350 
1360 

1370 

1380 



APLICAT 

1000 
1010 
1020 
1030 
1040 



1050 
1060 



1070 
1080 
1090 
1100 

1110 
1120 

1130 
1140 

1150 
1160 



1170 
1180 

1190 
1200 

1210 
1220 

1230 
1240 
1250 

1260 

1270 
1280 

1290 

1300 

1310 



PRINT "NOZZLES-"F"USED" 

FOR Z=l TO 1000 

: NEXT Z 

AB=(A*5280*B)/43560 

A$="### . ##-ACRES/HOUR COVERAGE" 

PRINT USING A$;AB 

PRINT "MIX"C*E"PTS OR LBS. OF PRODUCT 

IN"E"GALLONS." 

E$="ONE TANK COVERS ###.## ACRES" 

PRINT USING E$;E/D 

B$="#####.## GALS/HR-APPL RATE" 

PRINT USING B$;AB*D 

FOR ZZ=1 TO 2000 

: NEXT ZZ 

C$="PRESSURE TIP COMBINATION NEEDED 

: ###.## GALS /HOUR" 

PRINT USING C$;(AB*D)/F 

D$="###.## GALS /MI N." 

PRINT USING D$;((AB*D)/F)/60 

PRINT "DO YOU WANT ANOTHER RATE?" 

: INPUT Y$ 

IF Y$="YES" THEN 1000 

: IF "NO" THEN END 

PRINT "THIS CONCLUDES THIS PROGRAM 

YOU! ! ! ! !" 



THANK 



'REM FEED PAPER TO 132 COLUMNS 

'REM THIS PROGRAM PRINTS OUT RATES OF 

'REM SPRAYERS TO FACILITATE UNUSUAL 

'REM RATES AND APPLICATIONS IN GAL/MN 

PRINT #-2, "THE BELOW CHART GIVES THE RATE AND 

NOZZLE AND PRESSURE COMBINATION NEEDED TO SPRAY 

AT THIS RATE." 

PRINT #-2, "REMEMBER, THE RATE IN GALS/MIN IS 

FOR ONE NOZZLE ONLY" 

PRINT #-2, "YOU MUST FIND A NOZZLE PRESSURE 

COMBINATION FOR THIS OUTPUT IN GALLONS PER 

MINUTE" 

PRINT #-2, "" 

PRINT ihl, "" 

CLS 

'THIS PROGRAM IS TO COMPUTE THE CALIBRATION OF 

ANY SPRAYER' 

'THE REQUIRED DATA IS SELF-EXPLANATORY' 

PRINT "ENTER THE WIDTH OF PATTERN OF YOUR 

SPRAYER IN FEET." 

INPUT A 

PRINT "ENTER THE GROUND SPEED THAT YOU INTEND TO 

USE IN MPH." 

INPUT B 

PRINT "ENTER THE AMOUNT OF HERBICIDE OR 

PESTICIDE YOU INTEND TO APPLY PER ACRE IN 

PINTS OR POUNDS." 

INPUT C 

PRINT "ENTER THE NUMBER OF GALLONS PER ACRE OF 

WATER YOU WISH TO APPLY." 

INPUT D 

PRINT "HOW LARGE IS YOUR SPRAYER TANK IN 

GALLONS?" 

INPUT E 

PRINT "HOW MANY NOZZLES DOES YOUR SPRAYER 

HAVE?" 

INPUT F 

CLS 

PRINT "WIDTH- "A"FT" 

: PRINT #-2, "SWATH WIDTH-"A"FEET" 

PRINT "SPEED- "B"MPH" 

: PRINT ihl, "DELIVERY SPEED-"B"MPH" 

PRINT "PRODUCT-"C"PTS OR LB/ACRE" 

PRINT "WATER- "D"GAL/ACRE" 

: PRINT ihl, "WATER RATE~"D"GAL/ACRE" 

PRINT "TANK- "E"TOTAL GALS" 

: PRINT ihl, "TANK SIZE-"E"TOTAL GALS" 

PRINT "NOZZLES-"F"USED" 

: PRINT #-2, "NUMBER TOTAL NOZZLES-"F"USED" 

FOR Z=l TO 1000 

: NEXT Z 



1320 AB=(A*5280*B)/43560 

1330 A$="###.##-ACRES/HOUR COVERAGE" 

1340 PRINT USING A$;AB 

: PRINT ihl, USINGA$;AB 
1350 PRINT "MIX"C*E"PTS OR LBS. OF PRODUCT 

IN"E"GALLONS." 
1360 E$="ONE TANK COVERS ###.## ACRES" 
1370 PRINT USING E$;E/D 

: PRINT ihl, USING E$;E/D 
1380 B$="#####.## GALS/HR-APPL RATE" 
1390 PRINT USING B$;AB*D 

: PRINT ihl, USINGB$;AB*D 
1400 FOR ZZ=1 TO 2000 

: NEXT ZZ 
1410 C$="PRESSURE TIP COMBINATION NEEDED 

: ###.## GALS /HOUR" 
1420 PRINT USING C$;(AB*D)/F 

: PRINT ihl, USINGC$;(AB*D)/F 
1430 D$="###.## GALS/MIN." 
1440 PRINT USING D$ ; ( (AB*D) /F)/60 

: PRINT ihl, USING D$ ; ( (AB*D) /F) /60 
1450 PRINT "DO YOU WANT ANOTHER RATE?" 

: INPUT Y$ 
1460 IF Y$="YES" THEN 1090 

: IF "NO" THEN END 
1470 PRINT "THIS CONCLUDES THIS PROGRAM THANK 

YOU! ! ! ! !" 



RATE CHART 



1000 
1010 

1020 

1030 

1040 
1050 

1060 
1070 

1080 

1090 



1100 
1110 
1120 
1130 
1140 

1150 
1160 
1170 
1180 
1190 

1200 
1210 
1220 
1230 
1240 
1250 



1260 



'THIS PROGRAM PRINTS A CHART OF 

'SPRAYER OUTPUT IN GALS/MIN. FOR THE TOTAL 

NOZZLES OF A SPRAYER 

'YOU MAY CHANGE THE MEAN AVERAGE GROUND SPEED 

FROM 5 MPH IF YOU DESIRE 

'THE SELECTED MEAN SPEED WILL PRINT RATES FOR 9 

RATES ON EACH SIDE OF THE MEAN 

CLS 

PRINT "ENTER THE WIDTH OF SWATH FOR CHART YOU 

DESIRE" 

INPUT "SWATH IN FEET";W 

Y=l 

: PRINT "" 

PRINT "THE PROGRAM PRINTS GALS PER ACRE FROM .5 

TO 10 GALS/ACRE" 

PRINT "IF YOU WISH TO CHANGE THIS INPUT THE 

MULTIPLIER OF THE STD RATE (EXAMPLE, INPUT OF 

10 YIELDS A CHART WITH RATES OF 5 TO 100GALS" 

PRINT "IF THE STD RATE IS OKAY ENTER 1" 

INPUT Y 

GA=(W/100*.20)*Y 

S=l 'GROUND SPEED VAR. 

PRINT "DO YOU WISH TO CHANGE THE GROUND SPEED 

MEAN FROM 5 MPH? (Y/N)" 

A$=INKEY$ 

IF A$="N" GOTO 1250 

IF A$="Y" GOTO 1190 

GOTO 1150 

PRINT "WHAT MEAN SPEED DO WANT IN THE CENTER OF 

THE GROUND SPEEDS?" 

PRINT "" 

PRINT "ENTER THE MEAN IN MPH" 

INPUT B 

S=B/5 

PRINTS 

PRINT ihl, " SPRAYER VOLUME 

OUTPUT REQUIRED AT "W" FEET SWATH WIDTH 

COVERAGE" 



LL$="- 



1270 PRINT ihl, " OUTPUTS ARE IN 

GALLONS PER MINUTE FOR ALL NOZZLES USED 
TOTALLED" 

1280 PRINT ihl, LL$ 

1290 PRINT ihl, "GROUND GALLONS PER ACRE" 

(Continued page 28) 
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Writer for the Model II 



Robert M. Stoltz 
RR #1 Box 43 B 
Edwardsport, IN 47528 



After seeing the many new articles on "easy to use" text 
editors, I thought someone might be interested in my own 
version that will save the text to disk for later printing or 
revision. This program is used in our business daily for writing 
correspondence letters and creating any type of business 
form where we need several copies. The only disadvantage 
to the program is that it will only let you revise a whole line at a 
time instead of character by character. 

The program was saved to disk using the name 
WRITER. Then I created a DO file at TRSDOS named 
LETTER so at power-up it could be loaded by a simple 
command - DO LETTER. The DO file was created by 
BASIC WRITER -F:1. If you do not want to use the DO 
files, type in BASIC WRITER -F:1 at power-up. 

The text is saved to disk using any name that you choose 
(eight characters max) and automatically adds the extension 
"/TXT" behind the name of the file. The program was written 
that way so as when looking at the DIRectory of the diskette I 
could tell programs from actual text saved. 



FOR EASY START-UP CREATE A DO FILE 
** 



10 REMARK ** 

FROM DOS 
20 REMARK ** OR FROM DOS TYPE BASIC -F:l TO BE 

ABLE TO OPEN FILES ** 
30 REMARK ** ' THE PROGRAM WAS SAVED USING THE NAME 

WRITER ** 

40 REMARK ** THEN CREATED A DO FILE AND NAMED 

IT LETTER ** 

50 REMARK ** AFTER POWER - UP ALL I HAVE TO DO IS 

TYPE — DO LETTER ** 
60 REMARK ** C IS FOR LINE TEXT COUNTER L IS 

FOR LEFT MARGIN ** 

70 REMARK ** M IS FOR PAGE LENGTH R IS 

FOR RIGHT MARGIN ** 
80 REMARK ** P IS FOR EDIT TEXT LINES Z IS 

ACTUAL TEXT LENGTH ** 
90 REMARK ** Q IS JUST COUNTER LOOP U IS 

TIMER LOOP ** 

100 REMARK ** WRITTEN BY : ROBERT M. STOLTZ 

9th VERSION ** 

110 REMARK ** R.R. # 1 BOX 43 B 

** 

120 REMARK ** EDWARDSPORT , INDIANA 

47528 ** 

130 REMARK ** SEPTEMBER 16, 1982 

** 

140 CLS 

150 REMARK ** CLEAR & DIM L$ MORE IF TEXT IS 

GREATER THAN 120 LINES ** 
160 CLEAR (10000) 
170 DIM L$(140) 

180 DEFINT C, L, M, P, Q, R, Z 
190 REMARK ** WRITTEN FOR TRS-80 MODEL II - SHOULD 

WORK ON MODEL I & III ** 
200 REMARK ** K IS MAX. WIDTH OF LINE CHANGE 

TO 63 FOR MOD I & III ** 
210 REMARK ** REMEMBER LINE COUNT STARTS WITH 

NOT 1 ** 

220 K = 79 
230 CLS 

240 ON ERROR GOTO 1900 
250 PRINT@25, " ** MENU **" 
260 PRINT 

: PRINT 

: PRINT 



270 

280 
290 

300 

310 
320 

330 
340 



350 
360 



370 
380 
390 
400 
410 
420 
430 
440 
450 
460 
470 
480 



490 



500 



510 

520 
530 

540 
550 



560 
570 
580 
590 



610 



620 
630 

640 
650 
660 
670 



ADD to page 



< 



> 



CREATE new page" 
EDIT - LOOK AT 

LOAD page from 



< 


H 


> 


HARDCOPY of page" 


< 


S 


> 


SAVE page to 


< 


X 


> 


EXIT program" 



"a 


' THEN 


640 


"c 


' THEN 


470 


"e 


1 THEN 


760 


"1 


' THEN 


1580 


"h 


' THEN 


1040 


"s 


1 THEN 


1360 


"x 


' THEN 


1330 



PRINT " < A > 

already in memory" 
PRINT " < C > 

PRINT " < E > 

page in memory 1 ' 
PRINT " 

disk" 
PRINT " 
PRINT " 

disk" 
PRINT " 
PRINT 

: PRINT 

: PRINT 
PRINT "NOTE :SAVE PAGE if you have made any 

changes since last saved." 
PRINT 
PRINT 
PRINT 

PRINT "ENTER MENU CHOICE" 
M$ = INKEY$ 
IF M$ = "" THEN 370 
IF M$ = "A" OR M$ = 
IF M$ = "C" OR M$ = 
IF M$ = "E" OR M$ = 
IF M$ = "L" OR M$ = 
IF M$ = "H" OR M$ = 
IF M$ = "S" OR M$ = 
IF M$ = "X" OR M$ = 
GOTO 370 

IF C > THEN 140 ELSE 480 
CLS 

PRINT@25," ** START-UP ROUTINE **" 
PRINT 
PRINT 
PRINT 
PRINT 

PRINT "When entering TEXT the" 
PRINT 

PRINT "exit CODE is XXX OR xxx" 
PRINT 
PRINT "this CODE can be changed within the 

program to suit your needs" 

: PRINT 
REMARK ** TO INCREASE OR DECREASE AMOUNT OF 

TEXT TO SEE AT ONE TIME ** 
P = 
INPUT "enter LEFT MARGIN "; L 

: L = L - 1 
IF L < THEN L = 
PRINT 

: PRINT "RIGHT margin must be = to or less than 

";K + L + 2 

: PRINT 
INPUT "enter RIGHT MARGIN "; R 
IF R < L THEN 560 ELSE 580 
IF R > (K + L + 2) THEN 610 ELSE 590 
R = R - 1 

: M = 60 

: GOTO 620 
REMARK ** THIS IS MAX. PAGE LENGTH CHANGER AS 

NEEDED ** 
R = 

: PRINT "RIGHT MARGIN must be = to or less than 

"; K + L + 2 

: PRINT 

: GOTO 560 
Z = R - L 
CLS 

: GOTO 650 
IF C = THEN 230 ELSE 650 
C = C + 1 

IF C => M THEN 1760 
REM ** ! SHOWS TABS & END OF LINE STOP POINTS 

. COULD BE DELETED ** 
PRINT TAB(4) "!"; TAB(9); "!"; TAB(14); "!"; 

TAB(19); "!"; TAB(24); "!"; TAB(Z-l) "!" 
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690 LINE INPUT L$(C) 

700 REMARK ** NEXT LINE CONTAINS EXIT CODE 

CHANGE TO FIT YOUR NEEDS ** 
710 IF L$(C) = "XXX" OR L$(C) = "xxx" THEN C = C - 1 

: GOTO 230 
720 IF LEN(L$(C)) > Z THEN 730 ELSE 740 
730 L$(C) = "" 

: PRINT "TOO LONG try again " 
: GOTO 680 
740 IF LEN(L$(C)) = THEN L$(C) = " " 
750 GOTO 650 

760 IF C = THEN 230 ELSE 770 
770 CLS 

PRINT@25, " ** EDIT ROUTINE **" 
PRINT 
PRINT 
PRINT 
780 Q = 

: P = 
790 Q = Q + 1 
800 P = P + 1 

810 PRINT Q; TAB(4); L$(Q) 
820 IF Q = C THEN 880 ELSE 860 
830 REMARK ** LOOKS AT 15 LINES OF TEXT AT ONE 

TIME CHANGE VALUE OF P ** 
840 REMARK ** TO INCREASE OR DECREASE AMOUNT OF 

TEXT TO SEE AT ONE TIME ** 
850 REMARK ** CHANGE THE IF P ='S STATEMENT IN 

NEXT LINE ** 
860 IF P = 15 THEN 880 
870 GOTO 790 
880 P = 
890 PRINT 

: PRINT 
900 YY = 

: INPUT"enter LINE # to CORRECT on this list or 
ENTER to continue" ;YY 
910 IF YY > C THEN 900 ELSE 920 
920 IF YY <= THEN 930 ELSE 960 
9 30 IF Q = C AND P = THEN 230 ELSE 940 
940 CLS 
950 GOTO 870 
960 PRINT 

: PRINT 
970 EE = 

: EE = YY 
: YY = 
980 PRINT 

PRINT "OLD line " 
PRINT L$(EE) 
L$(EE) = "" 
990 REMARK ** THE NEXT LINE IN THIS PROGRAM COULD 

BE LEFT OUT ** 
1000 PRINT 

: PRINT 

: PRINT TAB(Z-l) "!" 
1010 PRINT 

: PRINT "NEW line " 
: LINE INPUT L$(EE) 
1020 IF LEN(L$(EE)) > Z THEN PRINT "TOO LONG try 
again" 

: L$(EE) = "" 
: GOTO 1010 
1030 GOTO 770 

1040 IF C = THEN 230 ELSE 1050 
1050 CLS 

: PRINT@25, " ** HARDCOPY ROUTINE **" 
1060 PRINT 

PRINT 
PRINT 

PRINT "DO YOU NEED TOP OF FORMS ( Y or hit 
any key )" 
1070 Y$ = INKEY$ 

1080 IF Y$ = "" THEN 1070 ELSE 1090 
1090 IF Y$ = "Y" OR Y$ = "y" THEN 1120 ELSE 1130 
1100 REMARK ** NEXT LINE IS FOR PRINTER TOP OF 
FORMS COMMAND ** 



1110 REMARK ** CHANGE CHR $ ( XX ) IF NOT SAME AS 

YOUR PRINTER ** 
1120 LPRINT CHR$(12) 
1130 CLS 
1140 CP = 
PRINT 

PRINT "ENTER TO RETURN TO MENU " 
PRINT 
1150 PRINT 

: INPUT "HOW MANY COPIES DO YOU NEED"; CP 
1160 IF CP = THEN 230 ELSE 1170 
1170 PRINT 

PRINT "Press any key to continue " 
PRINT 
PRINT 
1180 Y$ = INKEY$ 

1190 IF Y$ = "" THEN 1180 ELSE 1200 
1200 FOR ZZ = 1 TO CP 
1210 FOR E = 1 TO C 
1220 LPRINT TAB(L) L$(E) 
1230 NEXT E 
1240 PRINT 

: PRINT 
1250 REMARK ** NEXT LINE IS FOR PRINTER TOP OF 

FORMS COMMAND ** 
1260 REMARK ** CHANGE CHR $ ( XX ) IF NOT SAME AS 

YOUR PRINTER ** 
1270 LPRINT CHR$(12) 
1280 E = 
1290 NEXT ZZ 
1300 E = 
1310 GOTO 230 

1320 REMARK ** EXIT ROUTINE ** 

1330 CLOSE 
1340 PRINT 

: PRINT 

: PRINT "type GOTO 40 if you want to continue 
same letter." 
1350 PRINT 

: PRINT 
: END 
1360 IF C = THEN 230 ELSE 1370 
1370 CLS 

PRINT 
PRINT 

PRINT@25, " ** DISK SAVE ROUTINE **" 
1380 PRINT 

: PRINT 
1390 PRINT "hit enter to return to MENU " 
1400 PRINT 

: PRINT "NAME MUST BE BETWEEN 1 AND 8 
CHARACTERS LONG ONLY" 
: PRINT 
1410 NE$ = "" 

: INPUT" enter NAME you want to SAVE it under "; 
NE$ 
1420 IF LEN(NE$) = THEN 230 
1430 IF LEN(NE$) > 8 THEN 1380 ELSE 1440 
1440 PRINT 

: PRINT" SAVING to DISK at this time 
using the NAME "; NE$ 
1450 PRINT 

: PRINT 
1460 NZ$ = NE$ + "/TXT" 
1470 OPEN "0", 1, NZ$ 
1480 PRINT#1, C, L, R, Z, M 
1490 FOR RR = 1 TO C 
1500 PRINT#1, L$(RR) 
1510 NEXT RR 
1520 CLOSE 
1530 PRINT 

: PRINT 
1540 PRINT 

: PRINT 

: PRINT "hit any key to continue " 
1550 Y$ = INKEY$ 
1560 IF Y$ = "" THEN 1550 ELSE 1570 
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1570 Y$ = "" 

: GOTO 230 
1580 IF C > THEN 140 ELSE 1590 
1590 CLS 

PRINT@25, " ** LOAD ROUTINE **" 
PRINT 
PRINT 
1600 PRINT "press ENTER to return to MENU " 

: PRINT 

: PRINT 
1610 NE$ = "" 

: INPUT "enter NAME of FILE "; NE$ 
1620 IF LEN(NE$) = THEN 230 ELSE 1630 
1630 IF LEN(NE$) > 8 THEN 1610 ELSE 1640 
1640 NZ$ = NE$ + "/TXT" 
1650 OPEN "I", 1, NZ$ 
1660 INPUT#1, C, L, R, Z, M 
1670 PRINT 

: PRINT 

: PRINT "left margin set at " ; L + 1 
1680 PRINT "right margin set at " ; R + 1 
1690 PRINT "page length set at "; M 
1700 FOR RR = 1 TO C 
1710 IF EOF(l) THEN 230 
1720 LINE INPUT#1 , L$(RR) 
17 30 NEXT RR 
1740 CLOSE 
1750 GOTO 230 
17 60 CLS 
1770 PRINT "YOU have gone to the LIMIT of your PAGE 

LENGTH " 
1780 PRINT 

: PRINT"Do you want to increase the length ( Y 

or press any key ) 
1790 Y$ = INKEY$ 

1800 IF Y$ = "" THEN 1790 ELSE 1810 
1810 IF Y$ = "Y" OR Y$ = "y" THEN 1820 ELSE 1880 
1820 PRINT 

PRINT 
MM = 

INPUT "enter new Page LENGTH "; MM 
PRINT 
PRINT 

1830 IF MM < M THEN 1820 ELSE 1840 
1840 M = MM 

: MM = 
1850 PRINT 

PRINT 
PRINT 
PRINT 

" Press any key to continue" 
1860 Y$ = INKEY$ 

1870 IF Y$ = "" THEN 1860 ELSE 1880 
1880 GOTO 230 

1890 REMARK ** ERROR ROUTINE ** 
1900 PRINT 

: PRINT "AN ERROR HAS OCCURRED ***** PLEASE 

STAND-BY *********" 
1910 CLOSE 
1920 FOR U = 1 TO 2000 

: NEXT U 
1930 GOTO 230 JEl 



CoCo Business 



(From page 25) 




1300 


PRINT #-2, "SPEED ", 












: PRINT #-2, USING"##. 


## 


" ; . 5*Y , 


1*Y, 1 


. 5*Y , 




2*Y, 2.5*Y, 3*Y, 4*Y, 


5*Y, 


6*Y, 7*Y 


, 8*Y, 


9*Y, 




10*Y 










1310 


PRINT #-2, LL$ 










1320 


PRINT #-2, "IN MPH 


OUTPUT IN 


GALLONS PER 




MINUTE"" 










1330 


FOR N=l TO 19 










1340 


AO=.5*GA*S 
: BO=GA*S 










1350 


CO=1.5*GA*S 
: DO=2.0*GA*S 










1360 


EO=2.5*GA*S 
: F0=3*GA*S 










1370 


00=4*GA*S 

: HO=5*GA*S 










1380 


IO=6*GA*S 
: J0=7*GA*S 










1390 


KO=8*GA*S 
: LO=9*GA*S 










1400 


MO=10*GA*S 










1410 


PRINT Y 










1420 


PRINT GA 










1430 


R$ ="##.## " 










1440 


PRINT #-2, USING R$ ; S 


AO, 


BO, CO, 


DO, EO 


, FO, 




00, HO, 10, JO, KO, LO, MO 








1450 


S=S+.5 










1460 


IF N=19THEN GOTO 1470 


ELSE 


NEXT N 






1470 


PRINT #-2, "" 










1480 


PRINT #-2, "REFER TO ( 


DHARTS FOR THE TIPS 


YOU USE 




TO DETERMINE PRESSURE 


NEEDED FOR YOUR RATE" 


1490 


CLS 












: PRINT "WOULD YOU LIKE TO 


PRINT A 


CHART 


FOR A 




DIFFERENT SWATH? (Y/N) 


1 








1500 


INPUT M$ 










1510 


IF M$="Y" GOTO 1040 










1520 


CLS 












: PRINT "PROGRAM IS CONCLUDED" 




4^H 




acme 

■30 
a mJ 

T l^J 

': 10 J 
I 0J 


motor co. stock 


uw 


IMffl m 


^b Hh h H 


: 
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tincturing Profile Data Bases 



The small Computer Company 

P.O. Box 2910 

Fort Worth, TX 76113-2910 

By Ivan Sygoda, Director, Pentacle 

Profile III Plus section copyright 1983, Ivan Sygoda. All rights reserved. 



Do you ever wish that you'd set up your Profile data base 
differently? Perhaps you've found you neglected to include 
an important sort field when you originally defined your 
fields— area code, for example. Or maybe you've discov- 
ered you allowed too little room for the address field. Or 
maybe you defined your fields before learning the whole 
repertory of Profile features, and now you want to take advan- 
tage of associated fields, for instance, or the date-of-last- 
update field. 

More likely, however, you and your work have simply 
changed over the years. Your business has grown. Your 
needs are different. Now you have to deal with new types of 
clients, new information, new products or new services. To do 
this, you need new or altered fields. 

A BIG INVESTMENT 

On the other hand, you've already made a big invest- 
ment in time and effort building up your data base. Some- 
body (probably you) spent dozens of hours keying in names, 
addresses, and so forth. As the Profile manual says, you can 
lose a lot of data if you change fields after the fact. All those 
ASCII characters— the building blocks of your data base- 
may still be there on your disks, but if you juggle field defini- 
tions recklessly, Profile will no longer be able to find them 
when needed. 

BASIC TO THE RESCUE 

As you know by now, I never bring up a problem unless 
there's a solution. If you're willing to write a program in 
BASIC, you can restructure your Profile data base any way 
you want, without losing any of the data you've already typed 
in. An extension of the techniques discussed in last month's 
column is all that's involved. 

As an example, I'll show you how I restructured my 
SPONSTAT data base, which I use at Pentacle to keep track 
of the presenters who are interested in hiring my dance 
companies. I needed to restructure SPONSTAT because I did 
something that you might do some day as your own business 
grows: I bought a Model 12. (Actually, I went to Radio Shack 
to buy another Model III, but I came home with a Model 12 
through some combination of reason and lust.) 

At Pentacle during the next year, we plan to upgrade our 
Model 12 to a 16-bit Model 16, add the hard disk and 
TRS-XENIX and, finally, two DT-1s for multi-user capability. 
Here's the important point— my Profile data bases can follow 
me all the way up: from Model III to Model 12 (in Model II 
mode) to Model 16 to TRS-XENIX to multi-user! We'll take it 
one step at a time both at Pentacle and in these articles. In this 



article, step one: restructuring the Profile III Plus data base 
on the Model III. 

THE KEY TO SUCCESS 

Profile for the Model II is actually a bit rougher in some 
respects than the Model III version because the former was 
written first. The most important difference is that in Model II 
Profile (Profile II and Profile Plus), the key segment (userfile/ 
KEY) is always exactly 85 bytes long, and three such key 
records are "blocked" into each 256-byte sector on the disk. 
In Profile III Plus, the key segment can be any length up to 
255 bytes. My own SPONSTAT/KEY segment has 200 bytes. 

Table 1 shows the complete list of fields in my Profile III 
Plus data base plus the buffer names I assigned to them in the 
BASIC program that follows. For simplicity's sake, I call Table 
1 the "source." Table 2 shows the "destination" data base— 
the way I want my restructured file to look when transferred to 
Profile II Plus on my Model 12.1 had to do some juggling to 
reduce my key segment from 200 to 85 bytes. Half the job 
was done when I transferred my associated fields into seg- 
ment 2. (These fields keep track of the booking history of 
each presenter and of his or her current interests.) 

While I was at it, I made some other changes. I combined 
associated field group A (the three-character code for com- 
panies previously booked by the presenter) and group B (the 
two-digit year of the booking) into a new five-character group 
A. As explained in my April 1 983 article (page 1 7), combining 
these groups adds flexibility while conserving fields, thanks to 
Profile's "wild card" ( = ) feature. I also lengthened group B, 
(C in the destination data base) so as to indicate in which year 
the presenter wants one of my companies. (The larger pre- 
senters plan two or more years in advance. I hadn't been able 
to cope with this before.) 

Plus, I increased the number of fields in each group by 
adding fields to describe a second performance facility 
("F2") and adding a one-byte "Y/N" field to indicate whether 
the presenter was active in the summer. 

HAVE YOUR CAKE AND EAT IT, TOO 

There's a reason I didn't worry too much about transfer- 
ring fields out of my key segment into segment 2: I have 
Profile Prosort for the Model II (26-4558). This valuable en- 
hancement allows me to sort on fields in any segment, store 
up to five such indexes for printing, and even make indexes 
of indexes, which means I can sort across segments. Without 
Prosort, I would have had to agonize a great deal before 
abandoning key fields. 

Also, except for the 85-byte limitation on the length of the 
key field, I could afford to be generous regarding the length of 
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Table 1: SPONSTAT ("SOURCE") Fields 



Table 2: SPONSTAX ("DESTINATION") Fields 



Field 
No. 



Heading 

1 : SPONSTAT/KEY) 



(Segment 

1 Zip 

2 Inst 

3 Last name 
4 
5 
6 
7 



9 
10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 



1 st name 

Title 

Dept 

City 

State 

A/C 

A)Bkd 

A) 

A) 

A) 

A) 

A) 

B)Yr 

B) 

B) 

B) 

B) 

B) 

Last contact 

Mode 

C)lnt 

C) 

C) 

C) 

C) 

C) 

C) 

C) 

Last update 

Source 

Marker 



Length 

10 

25 

15 

12 

10 

20 

20 

2 

3 

3 

3 

3 

3 

3 

3 

2 

2 

2 

2 

2 

2 



Buffer 

Name Length 



Field 
No. Heading Length 

(Segment 1: SPONSTAX/KEY) 



(Segment 2: SPONSTAT/DAT) 

35 Honorific 4 

36 Address 25 

37 Ofc. phone no. 8 

38 Home phone A/C 3 

39 Home phone no 8 

40 Facility 20 

41 Dim (Width) 2 

42 Dim (Depth) 2 

43 Seating cap 4 

44 Budget 5 

45 Salutation 18 

(Segment 3: SPONSTAT/DA2) 

46 Status 247 



TA$ 

TBS 
TC$ 

TD$ 
A1$ 
A2$ 
A3$ 
A4$ 
A5$ 
A6$ 

B2$ 
B3$ 
B4$ 
B5$ 



TE$ 
TF$ 
C1$ 
C2$ 
C3$ 
C4$ 
C5$ 
C6$ 
C7$ 
C8$ 
TG$ 
TH$ 
Tl$ 



TJ$ 
TK$ 

TL$ 
TM$ 
TN$ 

TP$ 
TQ$ 
TR$ 



TS$ 



62 

30 
20 

5 
3 
3 
3 
3 
3 
3 

2 
2 
2 
2 
2 



7 



1 Zip code/Country 

2 Institution/Organization 

3 Contact last name 

4 Contact first name 

5 State code 

6 Office phone A/C 

7 Mode of last contact 

8 Last update 

9 Marker 
(Segment 2:-SPONSTAX/DAT) 



10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 

21 

22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 

38 

39 

40 

41 

42 

43 

44 



City 

Lst ct dt 

Title 

Dept 

HomeA/C 

Home ph 

Ofc ph 

Srce 

Bdgt 

Sum? 

A)Bkd/Yr 

A) 

A) 

A) 

A) 

A) 

A) 

A) 

A) 

B)lnt/Yr 

B) 

B) 

B) 

B) 

B) 

B) 



F1 

Dim1/D 
Cap1 
F2 

Dim2/D 
Cap2 
Hon 
Addr 
(Segment 3: SPONSTAX/DA2) 

45 Salutation (Dear) 

46 Current status (Note) 

47 Dim 1 (Width) 

48 Width) 



10 
25 
15 
12 
2 



20 
8 

10 

20 

3 



3 
5 
1 
5 
5 
5 
5 
5 
5 
5 
5 
5 
5 
5 
5 
5 
5 
5 
5 
5 
8 
2 
4 
8 
2 
4 
4 
25 

18 

232 

2 

2 



my other segments. My two Model 1 2 double-sided, double- 
density Thinline drives hold 2.5 megabytes, compared to the 
half-megabyte capacity of my three Model III drives. I had 
absolutely no problems FCOPYing Model II Profile, which is 
delivered on TRSDOS 2.0a, onto my Thinline drives under 
TRSDOS 4.2.0. 



THE HEART OF THE MATTER 

Listing 1 shows the BASIC program that restructures my 
data base. It uses SPONSTAT/IX1 , my zip-ordered user in- 
dex, to GET each record. It displays certain information from 
the record on the screen, LSETs restructured records into the 



%? 
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segments of another Profile III Plus data base, temporarily 
called SPONSTAX, and then PUTs these records onto the 
disk in drive 0. Be sure to initialize BASIC for the appropriate 
number of variable length files: one for each segment in the 
source data base, one for the source index file (if you want to 
use it to order records), and one for each segment in the 
destination data base. 

The restructured data base will be written to drive in 
batches because the entire data base won't fit on one disk- 
ette. However, none of the Profile III Plus creation or runtime 
programs are needed for the operation. The disk in drive 
only needs to contain as much space as possible for the 
restructured file, and TRSDOS, BASIC, and the BASIC 
restructuring program, which I call SPONSHUF/BAS. My 
source data segments were already on non-system disks that 
go in drives 1 and 2. If you have intermixed data segments 
and formatting programs and if space is a problem, you'll 
have to COPY your data segments onto a data disk or set of 
disks. 

I decided to restructure about 150 records per batch. 
Lines 70-80 let me specify the number of records per batch 
and then compute whether the 1 66 free granules (grans) on 
my system disk will hold that many restructured records. The 
total length of all three segments in my destination data base 
is 547 bytes. (The number of bytes in a gran is 768.) 

Important note: Because I planned to restructure my 
multi-segment files record by record, I had to CREATE the 
destination segments on drive in advance. This is required 
because TRSDOS allocates disk space as needed for each 
file as it grows. Unless I pre-CREATE, since my program 
accesses data segments in round-robin style, the various 
segment files will "leap-frog" over each other on the disk until 
an Error 30 is generated, "No More Extents." (The limit, by 
the way, is 13 extents per file on the Model III.) 

To CREATE the first destination segment, I typed 
"CREATE SPONSTAX/KEY (LRL = 85, REC = 150)" at 
TRSDOS. ("REC = 150" means that I'm reserving space 
for 150 records.) I followed the same procedure for 
SPONSTAX/DAT.and the other data files, checking the direc- 
tory carefully for the logical record length (LRL) of each file. 

If my Model III had four disk drives, I could restructure all 
my records in one operation, rather than in batches. Also I 
needed to restructure using all segments, since I wanted to 
transfer data across segments. Otherwise, I could have done 
it segment by segment. 

Lines 60-65 are very important. They let you process the 
file in several parts and specify with which record to begin 
(line 70 lets you specify with which record to end). When the 
prompt, "Begin shuffle at Logical Record no." appears, the 
program will not accept a number less than "4." As I men- 
tioned last month, the first three records of a Profile index file 
are reserved for "housekeeping." My file begins with the 
fourth physical record. 

Line 130 sets up and "scroll protects" a header that 
describes the fields displayed as each record is processed. 
The line that commands the displaying is line 330. None of 
this is necessary, but it's nice to have something to look at 
while the program does its work. 

Each file is OPENed for random access and assigned a 
buffer in lines 140-200. Consult your owner's manual if you 
are unsure of the purpose or format of these lines. 

Each of the above buffers is FIELDed in lines 21 0-270. I 
found it much easier to check my programming if I assigned 



buffer names consecutively (TA$, TB$, TC$, etc.). There was 
no reason to divide groups of fields which were to remain 
grouped in the destination data base. For instance, zip, insti- 
tution and name fields were to remain together, in that order, 
so I moved them in one block. My source key segment had 
too many fields to FIELD in one program line (line 21 0), so the 
operation carries over into line 21 5. "TT$" is a "dummy" field 
that lets the program "skip over" the items already fielded. 

Line 240 FIELDs the index file. "KY$" (zip) is the 10- 
character key field on which the file was sorted. "PR$" is the 
two-byte hexadecimal representation of the physical record 
desired. "XX$" is a housekeeping byte of no relevance here. 
In lines 250-270, "X1$," "X2$" and "X3$" are simply the as 
yet empty segments of SPONSTAX/KEY, -/DAT and -/DA2. 

Line 290 checks for the end of the file and, if it finds it, 
jumps to an exit routine. 

Line 300 GETs the next index record. Line 310 converts 
the physical record number, stored as a string, into the nu- 
meric form needed by BASIC'S file handling utilities. Lines 
320 and 330-370 do most of the work. Line 320 GETs all 
three data segments of the appropriate record. Line 340 
LSETs into SPONSTAX/KEY the fields I wanted to place in it. 
Lines 350 and 360 do the same thing for SPONSTAX/DAT 
and -/DA2. Fields to be shortened can be manipulated using 
LEFTS, MID$ or RIGHTS functions. Fields to be lengthened 
must be "padded" with blanks, either by adding " " for 
shorter spans, or "STRING$(n,32)" for greater ones. (The 
ASCII code for a blank space is 32.) The alternate format is 
"STRING$(n," ")." Line 370 PUTs the newly restructured 
segments into the files waiting for them on drive 0. 

Finally, the alternate exit routines in lines 410 and 420 
both CLOSE all open files. 

Listing 1. 

10 'SPONSHUF/BAS- OPEN BASIC FOR 7V FILES 
20 CLS 

CLEAR 5000 
DEF INT A-Z 

EF$ = STRING$(26,"=") + "END OF FILE" + 
STRING$(27,"=") 
30 PRINT@128, "Shuffle SPONSTAT for transfer to 
Model 12" 

PRINT STRING$(64,95); 
PRINT 

PRINT "Insert data disks in drives 1 and 2." 
PRINT "Press <ENTER> when ready."; 
40 K$ = INKEY$ 

: IF K$ = "" GOTO 40 
50 IF K$ <> CHR$(1.3) GOTO 40 
60 PRINT 
: PRINT 

: INPUT"Begin shuffle at Logical Record no."; LR 
65 IF LR < 4 PRINT "This number must be greater than 
3." 
: GOTO 60 
70 INPUT "Number of Records to include in this 

batch"; NR 
80 PRINT 

: PRINT "You will need approximately"; 

INT(NR*587/768)+l; "grans for this shuffle." 
: PRINT "There are 166 grans free on the transfer 

disk. " 
: IF INT(NR*587/768)+l > 166 PRINT "Select fewer 

records . " 
: IF INT(NR*547/768)+l > 166 GOTO 70 
90 PRINT "Press <ENTER> to proceed." 
100 K$ = INKEi$ 

: IF K$ = "" GOTO 100 
110 IF K$ <> CHR$(13) GOTO 100 
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130 



140 
150 
160 
170 
180 
190 
200 
210 



PRINT@0, "=N= =ZIP= =====INSTITUTION===== 

========CONTACT NAME=======REC#" ; 

: POKE 16916,1 
: PRINT@64, CHR$(31); 
OPEN "R", 1, "SPONSTAT/KEY:l", 200 
OPEN "R", 2, "SPONSTAT/DAT:l", 100 
OPEN "R", 3, "SPONSTAT/DA2:2", 247 
OPEN "R", 4, "SP0NSTAT/IX1:2", 13 
OPEN "R", 5, "SPONSTAX/KEY:0", 85 
OPEN "R", 6, "SPONSTAX/DAT:0", 248 
OPEN "R", 7, "SPONSTAX/DA2:0", 254 
FIELD 1, 62 AS TA$, 30 AS TB$, 20 AS TC$, 5 AS 
TD$, 3 AS Al$, 3 AS A2$ , 3 AS A3$, 3 AS A4$ , 3 
AS A5$, 3 AS A6$, 2 AS Bl$, 2 AS B2$ , 2 AS B3$ , 
2 AS B4$, 2 AS B5$, 2 AS B6$, 8 AS TE$, 8 AS 
TF$, 3 AS Cl$, 3 AS C2$, 3 AS C3$ , 3 AS C4$ , 3 
AS C5$, 3 AS C6$, 3 AS C7$, 3 AS C8$ , 8 AS TG$ 
195 AS TT$, 3 AS TH$, 2 AS TI$ 
29 AS TJ$, 8 AS TK$, 11 AS TL$, 20 AS 
AS TN$, 6 AS TP$, 5 AS TQ$, 18 AS TR$ 
247 AS T3$ 

AS PR$, 1 AS XX$ 



215 FIELD 1 

220 FIELD 2 

TM$, 2 

230 FIELD 3 

240 FIELD 4, 10 AS KY$, 
250 FIELD 5, 85 AS Xl$ 
260 FIELD 6, 248 AS X2$ 
270 FIELD 7, 254 AS X3$ 
280 FOR N = 1 TO NR 
300 GET 4, LR 
310 PR = CVI(PR$) 
320 GET 1 , PR 
: GET 2, PR 
: GET 3, PR 
330 PRINT RIGHT$("00"+RIGHT$(STR$(N), 

LEN(STR$(N))-1),3) + " " + LEFT$(KY$,5) + "" + 
MID$(TA$,11,21) + " " + RIGHT$(TA$,27) + " " + 
RIGHT$(" " + STR$(LOC(l)),4); 
340 LSET Xl$ = TA$ + TD$ + TF$ + TG$ + TI$ 
350 LSET X2$ = TC$ + TE$ + TB$ + TL$ + TK$ + TH$ + 
TQ$ + "" + Al$ + Bl$ + A2$ + B2$ + A3$ + B3$ + 
A4$ + B4$ + A5$ + B5$ + A6$ + B6$ + 
STRING$(15,32) + Cl$+" " + C2$ + " " + C3$ + " 
11 + C4$ + " " + C5$ + " " + C6$ + " " + C7$ + 
11 " + C8$ + "" + LEFT$(TM$,18) + TP$ + 
STRINGS (24, 32) + TJ$ 
360 LSET X3$ = TR$ + LEFT$(TN$ , 232 ) + TN$ + " " 
370 PUT 5 
: PUT 6 
: PUT 7 
380 LR = LR + 1 
390 IF LR > L0F(4) GOTO 420 
400 NEXT N 
410 CLOSE 
PRINT 

PRINT N-l; "records have been shuffled." 
PRINT "Begin the next batch with Logical Record 
no. "; LR 
: GOTO 470 
420 PRINT EF$; 
CLOSE 
PRINT 

PRINT N; "records have been shuffled." 
470 END 

As always in such operations, you should only work with 
backups of your data disks. For extra protection, you can 
write protect the source data diskettes in drives 1 and 2, as 
they are not written to during restructuring. 

WHAT NEXT? 

Now that you've restructured your Profile data base, 
there are many things you can do with it. You can redefine 
fields, reformat your screens, labels and reports, and use 
your restructured data as before. Just be sure to rename 
either your restructured files or your newly defined data base 



so that both have the same file name. Otherwise Profile won't 
know what you are doing. 

You can also transfer your data to another computer, be it 
a Model II, III, 4,12,16 or 1 00, either directly by cable, which 
is how I did it, or via a modem. This is done segment by 
segment, ASCII file by ASCII file. If you had to restructure in 
batches, you can APPEND one batch to the end of the 
previous batch, also file by file. 

Things are moving so rapidly at Radio Shack that there 
are new subjects to write about that didn't even exist a month 
ago. For instance, I just bought a Model 100, which is an 
amazing and talented not-so-little computer. Then there's the 
marvelous hard disk version of Profile III Plus (26-1593), 
which incorporates the advanced sorting functions available 
on the 11/12 as Prosort. Over the next few issues, we'll dis- 
cuss these goodies and more, as we upgrade our system at 
Pentacle. 

PROFILE Editor's Note: This is Mr. Sygoda's ninth article 
in a series of 'how-to' Profile III Plus articles. Other articles in 
the series will be published over the next few issues in this 
column. We hope that you enjoy this feature, and we look 
forward to your comments and questions on Profile III Plus. 

Pentacle is a New York City-based non-profit service 
organization specializing in administrative services for per- 
forming art groups. 

PROSORT II USERS 

We've found a problem in Prosort for the Model II. The 
print, label and selector programs, when running off an in- 
dex, will fail to print records properly when the records se- 
lected are located in an extended key segment. 

Both the installation diskette and the diskette onto which 
Prosort has been installed can be easily patched. But be 
careful — there are two different sets of patches, one for the 
installation diskette and the other, if you've already installed 
Prosort, for the Profile Plus system diskette. 

Patches for the Prosort installation diskette: 

PATCH LBLIDX/EFC A=625C, F=202020202020 , 

C=CD8995C33894 
PATCH LBLIDX/EFC A=65E3, F=C33894, 

C=C34A90 
PATCH LBLIDX/EFC A=6647 , F=C3, 

C=C9 
PATCH LBLIDX/EFC A=49 27, F=33, 

C=34 
PATCH SELIDX/EFC A=284A, F=202020202020 , 

C=CD7A2AC32929 
PATCH SELIDX/EFC A=28C2, F=C32929, 

C=C34A28 
PATCH SELIDX/EFC A=29 26, F=C3, 

C=C9 
PATCH SELIDX/EFC A=4CE5 , F=33, 

C=34 
PATCH PRTIDX/EFC A=604A, F=202020202020 , 

C=CDEA94C39694 
PATCH PRTIDX/EFC A=63D6, F=C39694, 

C=C34A90 
PATCH PRTIDX/EFC A=6491, F=CDEA94, 

C=000000 
PATCH PRTIDX/EFC A=471D, F=33, 

C=34 

Patches for the Profile Plus system diskette on which 
Prosort is installed: 
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PATCH 


LABEL/EFC A=625C, F=202020202020 , 




C=CD8995C33894 


PATCH 


LABEL/EFC A=65E3, F=C33894, 




C=C34A90 


PATCH 


LABEL/EFC A=6647 , F=C3, 




C=C9 


PATCH 


LABEL/EFC A=4927, F=33, 




C=34 


PATCH 


SELECTOR/EFC A=284A, F=202020202020 




C=CD7A2AC32929 


PATCH 


SELECTOR/EFC A=28C2, F=C32929 , 




C=C34A28 


PATCH 


SELECTOR/EFC A=2926, F=C3, 




C=C9 


PATCH 


SELECTOR/EFC A=4CE5, F=33, 




C=34 


PATCH 


PRINT/EFC A=604A, F=202020202020 , 




C=CDEA94C39694 


PATCH 


PRINT/EFC A=63D6, F=C39694, 




C=C34A90 


PATCH 


PRINT/EFC A=6491, F=CDEA94, 




C=000000 


PATCH 


PRINT/EFC A=471D, F=33, 




C=34 



TAB and USING 
the CoCo 



James R. Demers 
377 Springfield Street 
Chicopee, MA 01013 



It has been brought to my attention that the CoCo is 
being used more and more for business. With this being the 
case, I thought it would be good to know how to use the TAB 
and USING at the same time. So I have put together a 
program using both. This is what the program will look like 
when it is sent to a printer. 



SUMMARY OF INVENTORY LISTING. 
02/18/83 

SUMMARY OF OTHER BRANDS. 



ARMSTRONG 
SEMPERIT 
OTHER 
VALVES 


$ 
$ 
$ 
$ 




123.55 

1,256.25 

1,254.25 

12.25 


TOTAL OTHER BRANDS 

CARLISLE 

MICHELIN 

GILLETTE 

GOODRICH 

INDUSTRIAL 

TUBES 


$ 
$ 
$ 
$ 
$ 
$ 
$ 


2,646.30 

12,365.25 

0.00 

12,354.25 

32,145.25 

13.22 

1,225.25 


TOTAL I 


NVENTORY 


$ 


60,749.52 



30 ' SHOW HOW TO USE BOTH THE 

40 ' "TAB" AND "USING" FUNCTIONS 

50 ' TO LINE UP DECIMAL POINTS. 

60 ' WRITTEN BY 

70 ' JAMES R. DEMERS 

80 ' 377 SPRINGFIELD ST. 

90 ' CHICOPEE, MA. 01013 

100 ' INVENTORY PROGRAM 

110 CLS 

120 K$ = "$###,###.##» 

130 PRINT#-2, STRING$(65,"*") 

140 PRINT*- 2 

150 PRINT#-2, TAB(5) "SUMMARY OF INVENTORY LISTING." 

160 PRINT "ENTER THE DATE-MM/DD/YY " 

170 INPUT A$ 

180 PRINT#-2, TAB(5); A$ 

190 PRINT*- 2 

: PRINT*- 2 

: PRINT*- 2 
200 PRINT#-2, TAB(10) "SUMMARY OF OTHER BRANDS." 
210 PRINT*- 2 
220 INPUT "ARMSTRONG"; A 

: INPUT "OTHER BRANDS"; 

: INPUT "SEMPERIT"; S 
230 INPUT "GILLETTE"; G 

INPUT "CARLISLE"; C 
INPUT "INDUSTRIL"; I 
INPUT "MICHELIN"; M 
240 INPUT "GOODRICH"; H 

: INPUT "TUBES"; T 

: INPUT "VALUES"; V 
250 PRINT*- 2, TAB(15) "ARMSTRONG"; TAB(30); 

: PRINT*- 2, USING K$; A 
260 PRINT*-2, TAB(15) "SEMPERIT"; TAB(30); 

: PRINT#-2, USING K$; S 
270 PRINT#-2, TAB(15) "OTHER"; TAB(30); 

: PRINT#-2, USING K$; O 
280 PRINT*- 2, TAB(15) "VALVES"; TAB(30); 

: PRINT*- 2, USING K$; V 
290Y = A+S+O + V 
300 PRINT*- 2 

: PRINT*- 2 
310 PRINT#-2, TAB(20) "TOTAL OTHER BRANDS"; TAB(50); 

: PRINT*- 2, USING K$ ; Y 
320 PRINT#-2, TAB(20) "CARLISLE"; 

: PRINT#-2, USING K$; C 
330 PRINT#-2, TAB(20) "MICHELIN"; 

: PRINT*- 2, USING K$; M 
340 PRINT*-2, TAB(20) "GILLETTE"; 

: PRINT*- 2, USING K$; G 
350 PRINT#-2, TAB(20) "GOODRICH"; 

: PRINT*- 2, USING K$; H 
360 PRINT*- 2, TAB(20) "INDUSTRIAL 

: PRINT#-2, USING K$ ; I 
370 PRINT#-2, TAB(20) "TUBES 

: PRINT*- 2, USING K$ ; T 
380 Z=Y+C+M+G+T+H+I 
390 PRINT*- 2 
400 PRINT#-2, TAB(20) "TOTAL INVENTORY"; TAB(50); 

: PRINT*- 2, USING K$ ; Z 
410 PRINT*- 2 

420 PRINT*- 2, STRING$(65,"*") 
430 END 



TAB (50) 
TAB(50) 
TAB (50) 
TAB (50) 
*; TAB(50); 
TAB(50); 



Speller 

Robert K. Wilcox 
111 1st Avenue S.E. 
Cedar Rapids, IA 52401 



* * * * * * * 



10 ' PROGRAM WRITTEN ESPECIALLY 
20 * FOR THE COLOR COMPUTER TO 



This little program was inspired by my son's need for 
help with his spelling words at school. It was fun to create, and 
I hope it will be useful to other parents and kids. 
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To create a word list on tape, first 'RUN' the program 
then choose option one at the menu. You will be allowed to 
enter ten words of up to twelve characters each. You must 
have ten words, no less. The program will not allow words 
longer than twelve characters. When your list is complete, the 
computer will prompt you to place a data tape in the recorder. 
The computer will store the ten words on tape, then tell you to 
plug a microphone into the recorder. You have better results 
with a hand mike rather than the condenser mike built into the 
recorder. You should also disconnect the auxiliary input plug. 

The computer will prompt you to pronounce each word 
three times, but it's best not to wait for the second and third 
prompts. For example, I will say the word, use it in a short 
sentence, and then pronounce it again— all without pauses. 
This is required because of recorder 'drift' during the on/off 
routines of playback. Here's a sample. 

Right way: 'BOOK; JOHN IS READING A BOOK; 
BOOK' 

Wrong way: 'BOOK . . . (PAUSE) . . . JOHN IS READ- 
ING A BOOK . . . (PAUSE) . . . BOOK.' 

After the last word is pronounced, the program will return 
to the menu. At this point you can rewind the tape to try out 
your word list. Choose number two at the main menu and 
follow the prompts. Be sure the volume control on your TV. is 
turned up so you can hear the words pronounced. After each 
word, wait for the recorder to be turned off and for the cursor 
to return to the screen. That's all there is to it! I hope you have 
fun improving your spelling. 



SPELLER 

ROBERT K. WILCOX 

APRIL 1982 



2 SAVE "SPELLER" 
: END 

id ■ 

20 ' 

30 ' 

40 ' 

50 CLS(0) 

60 W = 

: CI = 
70 DIM WORD$(10) 

: DIM P$(12) 
80 GOSUB 1820 

: GOSUB 870 
90 'SCREEN SETUP 
100 PRINTS1, "words"; 

PRINT@8, "right"; 
PRINTS 14, 
PRINT@ 19 , 
PRINT® 25 , 
110 GOSUB 380 

GOSUB 420 
GOSUB 340 
GOSUB 360 
120 GOSUB 1520 ' 
130 TC = 
140 FOR W = 1 TO 10 
150 GOSUB 440 
160 AUDIO ON 
170 MOTOR ON 

FOR X = 1 TO 3 
GOSUB 1640 
NEXT X 
180 MOTOR OFF 
190 PRINTS449, "HOW'S IT SPELLED? 

: GOSUB 1860 

200 PRINTS479, CHR$(128); 

: GOSUB 630 

: GOSUB 730 

210 IF Q = 1 THEN 260 

220 GOSUB 330 

: GOSUB 350 
: PRINTS449, 



'TITLE PAGE 



"word"; 
"words"; 
"missed" ; 



INPUT DATA TAPE 



: GOSUB 1860 
230 PRINTS479, CHR$(128); 
240 IF A$ = "" THEN GOTO 220 

250 IF A$ <> LEFT$(WORD$(W), LEN(A$)) THEN GOTO 220 
260 GOSUB 330 

: GOSUB 350 
270 NEXT W 
280 AUDIO OFF 
290 1$ = "PRESS ANY KEY FOR SCORE..." 

: GOSUB 1650 
300 GOSUB 1680 'TO SCOREBOARD 
310 GOTO 310 
320 'SUBROUTINES 
330 'BLANK MESSAGE LINE 1 
340 PRINTS449," "; 

: RETURN 
350 'BLANK MESSAGE LINE 2 
360 PRINTS481," "; 

: RETURN 
370 'SCREEN SETUP 
380 FOR X = TO 384 STEP 32 
: PRINT@X, CHR$( 138+48); 
: NEXT X 
390 FOR X = 13 TO 384 + 13 STEP 32 
: PRINT@X, CHR$( 133+48); 
: NEXT X 
400 FOR X = 18 TO 384 + 18 STEP 32 
: PRINTSX, CHR$(138+48); 
: NEXT X 
410 FOR X = 31 TO 415 STEP 32 
PRINTSX, CHR$( 133+48); 
NEXT X 
RETURN 
420 FOR X = 33 TO 32 + 12 

: PRINTSX, CHR$( 140+32); 
: NEXT X 
430 FOR X = 32 + 19 TO 62 

PRINTSX, CHR$( 140+32); 
NEXT X 
RETURN 
440 'GOLD BOX ROUTINE 
450 P = 32 * W 

: IF W > 1 THEN GOSUB 590 
460 W$ = STR$(W) 
470 PRINT@47 + P, RIGHT$(W$,2) 



480 PRINTS 14 
490 PRINT@15 
500 PRINTS 16 
510 PRINTS 17 
520 PRINTS46 
530 PRINTS49 
540 PRINTS78 
550 PRINT@79 
560 PRINT@80 
570 PRINTS81 
580 RETURN 
590 P = P 
600 FOR X 



P, CHR$(129+16) 
P, CHR$(131+16) 
CHR$(131+16) 
CHR$(130+16) 
CHR$(133+16) 
CHR$(138+16) 
CHR$(132+16) 
CHR$( 140+16) 
CHR$( 140+16) 
CHR$(136+16) 



'SPELL IT AGAIN— > "; 



32 

14 TO 17 
610 PRINTSX + P, CHR$(128); 
620 NEXT X 

: P = P + 32 

: RETURN 
630 'COLOR BAR 
640 FOR X = 1 TO 15 
650 PLAY "04;V5;T25" 
660 C = RND(8) - 1 
670 S = RND(12) 
680 L = RND(32) 
690 PRINTS415 + L 
700 PLAY "XP$(S);" 
710 NEXT X 

: RETURN 
720 'WORD CHECK 
730 PI = 33 

: P3 = 51 
740 IF A$ = WORD$(W) GOTO 
750 Q = 



CHR$(140+(C*16)); 
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GOSUB 830 








760 PRINK? (P3+(32*W)), WORD$(W); 








770 FOR X = 1 TO 5 










PRINT@449," "; 










FOR Y = 1 TO 100 










NEXT Y 










PRINT@449, "CHECK SPELLING— >" 


; 








FOR Y = 1 TO 100 










NEXT Y 










NEXT X 








780 FOR X = 1 TO 5 










PRINT@481," 




It . 






FOR Y = 1 TO 100 










NEXT Y 










PRINT@481, "SPELL IT RIGHT TO 


GO ON 


tl . 






FOR Y = 1 TO 100 










NEXT Y 










NEXT X 








790 GOTO 820 








800 TC = TC + 1 








: Q = 1 








: GOSUB 830 








810 PRINT@(Pl+(32*W)), WORD$(W); 








820 RETURN 








830 'LENGTH ROUTINE 








840 IF LEN(WORD$(W)) = 12 THEN 860 








850 WORD$(W) = WORD$(W) + " " 








: GOTO 840 








860 RETURN 








870 ' TITLE PAGE 








880 READ LO, CO 








890 IF LO = 99 GOTO 1080 








900 POKE LO, CO 








910 GOTO 880 








920 ' S 








930 DATA 1064, 156, 1032, 147, 1031, 


147, 


1030, 


147, 


1029, 147, 1028, 147 








940 DATA 1060, 159, 1092, 159, 1124, 


156, 


1125, 


156 


1126, 156, 1127, 156 








950 DATA 1128, 159, 1160, 159, 1192, 


159, 


1191, 


147 


1190, 147, 1189, 147, 1188, 159 








960 'P 








970 DATA 1131, 159, 1163, 159, 1195, 


159, 


1227, 


159 


1259, 159, 1291, 159, 1132, 156, 


1133 


159, 




1165, 159, 1197, 159, 1196, 147 








980 'E 








990 DATA 1168, 156, 1169, 156, 1137, 


159, 


1136, 


156 


1135, 159, 1167, 159, 1199, 159, 


1200 


147, 




1201, 147 








1000 'L 








1010 DATA 1043, 147, 1075, 159, 1107 


, 159 


1139 




159, 1171, 159, 1203, 159 








1020 DATA 1045, 147, 1077, 159, 1109 


, 159 


1141 




159, 1173, 159, 1205, 159 








1030 'E 








1040 DATA 1176, 156, 1177, 156, 1145 


, 159 


1144 




156, 1143, 159, 1175, 159, 1207, 


159, 


1208, 


'l47 


1209, 147 








1050 *R 








1060 DATA 1147, 159, 1179, 159, 1211 


, 159 


1148 




156, 1149, 159 








1070 DATA 99, 99 








1080 PRINT@359, " ROBERT K. WILCOX "; 








1 tfQGf PRTNT^a^Q 1 n " - 








1100 PRINT@423, " 1982 "; 








1110 FOR Y = 1 TO 6 








1120 C 


= RND(8) - 1 









: IF C = CI THEN GOTO 1120 
1130 FOR X = 1350 TO 1369 

: POKE X, 140 + (C*16) 

: NEXT X 
1140 FOR X = 1370 TO 1498 STEP 32 

: POKE X, 143 + (C*16) 

: NEXT X 
1150 FOR X = 1497 TO 1478 STEP - 1 

: POKE X, 131 + (C*16) 

: NEXT X 
1160 FOR X = 1477 TO 1349 STEP - 



32 



: POKE X, 143 + (C*16) 
: NEXT X 
1170 CI = C 
1180 NEXT Y 
1190 CLS(0) 

: PRINT@13, " MENU "; 
1200 PRINT@66, "1."; 

: PRINT@69, "PREPARE NEW WORD LIST "; 
1210 PRINT@130, "2."; 

: PRINT@133, "RUN THE SPELLER PROGRAM "; 
1220 P = 32 * 8 

: GOSUB 480 
1230 PRINT@47 + P, " "; 
: A$ = INKEY$ 
: IF A$ = "" THEN 1230 
1240 IF A$ < "1" OR A$ > "2" THEN 1230 
1250 IF A$ = "1" THEN PRINT@48 + P, A$; 
FOR X = 1 TO 460 * 1 
NEXT X 
GOTO 1270 
1260 PRINT@48 + P, A$; 

FOR X = 1 TO 460 * 1 
NEXT X 
CLS(0) 
GOTO 90 
1270 "WORD ENTRY 
1280 CLS(0) 

: PRINT@10, "WORD ENTRY"; 
: PRINT@35, "12 LETTER LIMIT PER WORD"; 
1290 FOR X = 1 TO 10 
W$ = STR$(X) 

PRINTS (71 +(32*X)), RIGHT$(W$,2); 
NEXT X 
1300 P = 75 

: FOR X = 1 TO 10 
1310 GOSUB 1620 

: LINE INPUT WORD$(X) 
1320 FOR Y = P + 12 + (32*X) TO P + 25 + (32*X) 
: PRINTSY, CHR$(128); 
: NEXT Y 

1330 IF LEN(WORD$(X)) > 12 THEN GOTO 1310 ELSE NEXT X 
1340 CLS(0) 

: PRINT "PREPARE TAPE FOR DATA RECORDING "; 
1350 GOSUB 340 

: GOSUB 350 
1360 1$ = "PRESS ANY KEY WHEN READY..." 

: GOSUB 1650 
1370 OPEN "0", #-1, "WORDS" 
1380 FOR X = 1 TO 10 
PRINTS239, X; 
PRINT#-1, WORD$(X) 
NEXT X 
1390 CL0SE#-1 

MOTOR ON 
GOSUB 1630 
MOTOR OFF 
1400 CLS(0) 

: PRINT "PREPARE RECORDER FOR VOICE 

RECORDING BY REMOVING THE AUXILIARY INPUT 

PLUG. "; 

1410 PRINTS32 * 4, "YOU WILL BE PROMPTED TO 

PRONOUNCE EACH WORD. "; 

1420 GOSUB 330 

: GOSUB 350 
1430 1$ = "PRESS ANY KEY TO BEGIN..." 

: GOSUB 1650 
1440 MOTOR ON 

: FOR X = 1 TO 10 

: CLS(0) 
1450 X$ = STR$(X) 
1460 PRINT "WORD NO."; RIGHT$(X$, 2) ; " IS "; 

WORD$(X); "..." 
1470 GOSUB 1630 

: PRINT@14+64, WORD$(X); 
1480 GOSUB 1630 

: PRINT@14 + 128, WORD$(X); "." 
1490 GOSUB 1630 
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: NEXT X 
1500 MOTOR OFF 

: GOSUB 1630 
1510 GOTO 1190 'MENU 
1520 'READ DATA TAPE 

1530 PRINT@449, "PREPARE TO LOAD DATA TAPE."; 
1540 1$ = "PRESS ANY KEY WHEN READY..." 

: GOSUB 1650 
1550 GOSUB 330 

: GOSUB 350 
1560 OPEN "I", #-1, "WORDS" 
1570 FOR X = 1 TO 10 

: INPUT*- 1, WORD$(X) 
: NEXT X 
1580 IF EOF(-l) THEN CLOSE*- 1 ELSE 1580 
1590 MOTOR ON 

: FOR Y = 1 TO 460 * 3 
: NEXT Y 
1600 MOTOR OFF 
1610 AUDIO ON 
: RETURN 
1620 PRINT@P + (32*X), " "; 

: PRINT@P + (32*X), ; 
: RETURN 
1630 FOR Y = 1 TO 460 * 4 
: NEXT Y 
: RETURN 
1640 FOR Y = 1 TO 440 * 4 
: NEXT Y 
: RETURN 
1650 'INKEY$ ROUTINE 
1660 A$ = INKEY$ 

PRINT@481, 1$; 
GOSUB 1670 
GOSUB 350 
GOSUB 1670 
IF A$ = "" 
1670 FOR Z = 
: NEXT Z 
: RETURN 
1680 'SCOREBOARD 
1690 W = 10 
1700 CLS(0) 

1710 PRINT@5, " SPELLING 
17 20 TW = W - TC 

: TC$ = STR$(TC) 
: TW$ = STR$(TW) 
17 30 PRINT@32 * 4, " TOTAL WORDS SPELLED RIGHT 
1740 P = 110 

: W$ = RIGHT$(TC$,2) 
1750 GOSUB 470 

17 60 PRINT@32 * 8, " TOTAL WORDS MISSED 
1770 P = 110 + (32*4) 

: W$ = RIGHT$(TW$,2) 
1780 GOSUB 470 
1790 GOSUB 330 

: GOSUB 350 
1800 1$ = "PRESS ANY KEY TO GO ON..." 

: GOSUB 1650 
1810 RESTORE 
: CLS(0) 
: GOTO 80 
1820 'TONE GENERATOR 
1830 FOR X = 1 TO 12 
1840 P$(X) = STR$(X) 
1850 NEXT X 

: RETURN 
1860 A$ = "" 

: ' INKEY SUBROUTINE 
1870 PRINT@467, A$ ; 
1880 C = LEN(A$) 

: IF C = 12 THEN 1970 
1890 PRINT@467 + LEN(A$), CHR$(142); 

: GOSUB 1960 
1900 PRINT@467 + LEN(A$), CHR$(143); 

: GOSUB 1960 
1910 B$ = INKEY $ 



THEN 1660 ELSE RETURN 
1 TO 60 



SCOREBOARD 



: IF B$ = "" THEN 1890 
1920 IF B$ = CHR$(8) THEN PRINT@467," 

: GOTO 1860 
1930 IF B$ = CHR$(13) THEN 1970 
1940 IF B$ < CHR$(65) OR B$ > CHR$(90) THEN 19( 
1950 A$ = A$ + B$ 

: GOTO 1870 
1960 FOR X = 1 TO 30 

: NEXT X 

: RETURN 
1970 RETURN 



Scripsit 2.1 and the 
Model 12 

In Scripsit 2.1 on the Model 12, the F1 and F2 function 
keys operate the same as on the Model II. 

CEZD Insert Text 

CED Delete Text 

The F3 through F8 functions keys of the Model 12 per- 
form the following operations in Scripsit 2.1 



Function 
Key No. 

CE3D 

COD 

CED 
COD 



Scripsit 
Operation 
Define Text Blocks 
Line Centering 
Utilities 

Get Previous Page 
Get Next Page 
Search Text 



Model II 
Equivalent 
(CTR Ll CE 
(CTRL) CD 
CCTRLl CE 
(CTRL) CED 
(CTRL) CHD 
(CTRL ) dD 



String Thing 



David Lewis 

Box 88 

Shady, NY 12479 

I stumbled across an interesting phenomenon that I think 
others would like. It allows for interesting effects at machine- 
language speed. 

What I did was change the index of a dummy string so 
that it pointed to part of the memory reserved for the video 
screen. I then printed the string and found that its value 
changed while it was being printed! Listing 1 for the Model I/TIT 
shows this. 

10 CLEAR 300 

: A$ = STRING$(255,32) "SET UP DUMMY 
20 V = VARPTR(A$) 

: POKE V+1,0 

: POKE V+2,60 'CHANGE TO 3C00H 
30 CLS 

: PRINT "<YOUR NAME>" 

: PRINT "A$ = "A$ 

The value of the string is being printed over part of itself, 
and then that overlay is printed, and so on! 
Here's another use. 

10 CLEAR 300 

: A$ = STRING$(255,32) 
20 V = VARPTR(A$) 

: POKE V+l, 

: POKE V+2, 60 



30 CLS 



PRINT "!*%#&"; 
PRINT A$ 
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CO and 
PRINTING 



Joseph A. Count 
BVM Software 
824 Sedgefield Lane 
Sylacauga, AL 35150 



The following programs are designed to operate as a 
pair. The first is a word processing program. The second is a 
printing program for files created with the word processing 
program. These programs will operate on a Model III with 
48K and two disk drives. 

The word processor is relatively simple and will create an 
ASCII file that is in the format of a BASIC program except that 
each line is a remark. This prevents the interpreter from 
converting the lower case letters to upper case. Obviously 
you can type in both upper and lower case text. The program 
allows you to type on a blank video screen just as you would 
on a typewriter. The VIDEO RAM is read and written to a file. 
This file can be edited by LOADING it while in BASIC. All of 
the standard editing features of the Model III can be used in 
this way. In addition, renumbering can be done to allow the 
insertion of whole paragraphs. Following editing, the normal 
SAVE command (SAVE "FID/TXT: 1", A) is used. With each 
blank screen a period (.) is printed in the first column of the last 
video line. This is done to remind the user that (enter] 
should not be used at the end of this line or else the video 
display will scroll. To have the computer write the page to a file 
just key the CD- If this is done on the last video line, a new 
blank page will be presented. To terminate input before the 
end of a video page just type CD at the beginning of the first 
blank line. This prevents all the blank lines from going to the 
file and also serves to terminate the program. Of course, 
during typing, the GD can be used to backspace and erase 
as normal. The reading of the video ram takes a few seconds. 
You can add to the file at any later time as the program will 
automatically increment line numbers based on the highest in 
the existing file. 

Printing is accomplished with the PRINTING program 
and can be on tractor forms or single sheets depending on 
your printer capabilities. What follows is a detailed discussion 
for programmers. 

WORDPRO: 

Line 110 - clears string space 

120 - V$( ) will hold each video line 

125 - NL is the starting line number for the 

data file 
130 - beginning of video RAM 
137 - appends /TXT to file name and specifies 

D:1 . Can be D:0 if you only have one 

drive. 
200 - beginning of Video RAM read. Based on 

routine in Cat. No. 26-2107 page 293. 
290 - adds info to file 
310 - writes a line number and makes it a 

REMARK 
320 - increments line number by 5 
The portion of the program from line 60000 is to save 
the program without having to remember the name or 
type SAVE. 



PRINTING: 

Line 20 - This is for a 48K system. This can be 
adjusted to suit your particular system. 
120 - beginning of lines/page counting. This 
routine will by-pass intercepts in BASIC 
and form feed on printers. 
151 - used to compensate for leading blank in 
line depending on how the file was SAVEd 
or edited 
Lines 200-350 can be bypassed if you do not have a 
DMP-200 printer by deleting line 25. 

WORDPRO 

100 ' PLACES VIDEO DISPLAY MEMORY MAP IN 

STRING 

110 CLEAR 16*64+255 
120 DEFINT A-Z 

: DIMV$(15) 
125 NL=1100 
130 VM-15360 
132 CLS 

135 INPUT"Enter file narae";F$ 

136 IF LEN(F$) > 8 THEN PRINT,"** TOO MANY LETTERS 

**" 

: GOTO 135 

137 INPUT"Is this a new file (Y/N)";G$ 

: F$=F$+"/TXT:l" 

138 IF G$ = "N" THEN GOSUB 500 

139 IF G$="Y" THEN OPEN "0",1,F$ 

: CLOSE 1 

140 PRINT CHR$(14); 
CLS 

PRINT @ 960,"."; 
PRINT CHR$(28); 

150 A$=INKEY$ 

: IF A$ = "" THEN 150 
160 IF A$ > CHR$(31) THEN PRINT A$; 

: GOTO 150 
170 IF A$ = CHR$(8) OR A$ = CHR$(13) THEN PRINT A$; 

: GOTO150 
180 IF A$ = CHR$(10) THEN 200 ' REMOVED THIS LINE 

TEMP 200 
190 GOTO 150 
200 PRINT CHR$(15); 
210 FOR LI = TO 15 
220 START = LI*64+VM 
230 FOR CL = TO 63 
240 AD = START + CL 

250 V$(LI) = V$(LI) + CHR$(PEEK(AD)) 
260 NEXT CL 
265 NEXT LI 
270 CLS 

: PRINT". . .Page is being stored" 

280 ' WRITE INFO TO FILE 

290 OPEN "E",1,F$ 

300 FOR LI = TO 15 

305 IF LEFT$(V$(LI),1) = " ! " THEN QI$="!" 

: GOTO 340 
310 PRINT #1,NL;"'";V$(LI) 
320 NL = NL + 5 
330 NEXT LI 
340 CLOSE 1 
350 CLS 
354 IF QI$="!" THEN CLS 

: END 
356 LPRINT"** LAST VIDEO LINE RECORDED **" 

: LPRINT V$(L1-1) 

: LPRINT 
360 FOR LI = TO 15 

: V$(LI)="" 

: NEXT LI 
370 GOTO 140 
500 ' READS HIGHEST LINE NUMBER IN OLD FILE 
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510 OPEN "I",1,F$ 

520 IF EOF(l) THEN 545 

530 LINE INPUT#1,QQ$ 

540 GOTO 520 

545 D=INSTR(QQ$," ! ") 

: IF D = 6 THEN Q1$=LEFT$(QQ$ ,4) 

: GOTO 555 
550 Q1$=MID$(QQ$,2,4) 
555 Q2 = VAL(Q1$) 
560 NL = Q2 + 5 
565 CLOSE 1 
570 RETURN 
60000 '************* AUTO SAVE SEQUENCE 

******************** 
60010 OO$="WQRDPRO:0" 
60030 PRINT 

: PRINT "File ";00$;" will now be SAVED 

automatically" 

: PRINT 
60040 SAVE 00$, A 



PRINTING 



10 'PROGRAM TO OUTPUT A TEXT FILE TO PRINTER W/PAGE 

CONTROL 

11 ' THIS ONE USES A WIDER BORDER 



20 CLEAR 20000 

: DIM II$(500) 

25 GOSUB 200 

26 GOSUB 500 

27 CLS 

30 INPUT"ENTER FILE NAME ";A$ 

40 F$ = A$ + "/TXT:1" 

42 INPUT"Enter COLUMN # to start printing from left 

side (10/inch)";CO 

: C0=C0-1 
44 PRINT 

: INPUT"Enter number of SPACES between lines (1, 

2, or 3)";SP 
46 IF SP < 1 OR SP> 3 THEN PRINT 

: PRINT"enter a number between 1 and 3..." 
: GOTO 44 

48 PRINT 

: INPUT"Enter the # of LINES /PAGE (66 maximum : 
6/inch)";PG 

49 IF PG > 66 THEN PRINT 
PRINT"66 is the most lines you can have..." 
PRINT 
GOTO 48 

50' i FILE INPUT 

60 OPEN "I",1,F$ 
70 FOR X = 1 TO 500 
80 IF EOF(l) THEN 110 
90 LINEINPUT#1,II$(X) 
100 NEXT X 
110 CLOSE 1 

: PRINT 

: PRINT".. .File loaded - please index paper to 

top of page" 

115 INPUT" ** Hit ENTER to continue ";Y$ 

116 CLS 

120 POKE 16425,1 

130 FOR X = 1 TO 500 

135 IF II$(X) = "" THEN 180 

140 P = PEEK( 16425) 

150 IF P >= PG THEN GOSUB 400 

151 D=INSTR(II$(X),'"") 

: IF D = 6THEN II$(X) = MID$(II$(X) ,7 ) 
: GOTO 153 

152 II$(X)= MID$(II$(X),8) 

153 IF LEN(II$(X)) = THEN LPRINT 

160 IF SP=1 THEN LPRINT TAB(CO) ; II$(X) 

161 IF SP=2 THEN LPRINT TAB(CO) ; II$(X) 

: LPRINT 



162 IF SP=3 THEN LPRINT TAB(CO) ;II$(X) 

: LPRINT 

: LPRINT 
170 NEXT X 
180 GOSUB 400 
182 GOSUB 310 
185 END 
200 > FONT STYLE SELECTION 



210 CLS 

220 PRINT"CHOOSE ONE OF THE FOLLOWING TYPE STYLES:" 
230 PRINT, "1. NORMAL (10 CPI - Data Processing)" 
240 PRINT, "2. COMPRESSED (12 Characters Per Inch)" 
250 PRINT, "3. CONDENSED (16.7 Characters Per Inch) 11 
260 PRINT,"4. Proportional" 
270 PRINT, "5. Correspondence" 
280 INPUT FZ 

290 IF FZ >= 1 AND FZ <= 5 THEN 300 ELSE PRINT,"** 
You MUST pick a number between 1 and 5" 
: GOTO 280 
300 ON FZ GOSUB 310,320,330,340,350 
305 RETURN 
310 LPRINT CHR$(27);CHR$(19) 

: RETURN 
320 LPRINT CHR$(27);CHR$(21) 

: RETURN 
330 LPRINT CHR$(27);CHR$(20) 

: RETURN 
340 LPRINT CHR$(27);CHR$(17) 

: RETURN 
350 LPRINT CHR$(27);CHR$(18) 
: RETURN 

400 > PAGE ADVANCE SUBR 

410 IF SI$="Y" THEN 450 
420 FOR R = P TO 65 
LPRINT 
NEXT R 
POKE 16425,1 
RETURN 
450 CLS 

: POKE 16425,1 
460 PRINT STRING$(63,"*") 
470 PRINT 

: PRINT"PLEASE PLACE YOUR NEXT SHEET OF PAPER IN 
THE PRINTER" 
480 PRINT 

: PRINT"Index the sheet so it is at the location 
you desire" 
490 PRINT 

: INPUT". ..Hit ENTER to continue" ;Y$ 
495 RETURN 

500 < SUBROUTINE TO PAUSE & CHANGE SHEETS OF 

PAPER 

510 CLS 

520 PRINT 

530 INPUT"Are you using single sheets of paper 

(Y/N)";SI$ 
540 IF SI$="Y" OR SI$="N" THEN RETURN 
550 PRINT,"** INCORRECT RESPONSE **" 

: GOTO 520 
60000 ************** AUTO SAVE SEQUENCE 

******************** 
60010 OO$="PRINTING:0" 
60030 PRINT 

: PRINT "File ";00$;" will now be SAVED 
automatically" 
: PRINT 
60040 SAVE 00$, A -Hi 
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Communication 



Communications Corner 



by Al and Dru Simon 



Welcome back to our corner. As promised we're going to 
spend some time this month talking about modems. The first 
thing we thought you'd like to know is what the word MODEM 
means. The word is an acronym for Modulator/Demodulator. 
This is simply a device which translates digital data into audio 
frequencies which can be transmitted over telephone lines; 
and then translates these frequencies back into digital data at 
the other end of the telephone connection. 

There are various types of modems with various speeds 
and functions, and we will discuss some of these, breaking 
them into generalized categories. The type of modem you 
should choose for yourself depends very much on the type of 
use you will make of it. Certainly in the case of modems, the 
most expensive is not necessarily the best for each end user! 

One thing you should be familiar with is the term BAUD 
RATE. This merely refers to the number of Bits Per Second 
(BPS) which the device is capable of transmitting or receiv- 
ing. Much communicating is done at speeds of 300 and 1200 
baud (or BPS), though higher speeds are certainly available. 
It is usually true, however, that the higher the baud rate, the 
more reliable the telephone connection must be to ensure 
accurate transmission of data; therefore most hobbyists pre- 
fer to use either 300 or 1200 baud modem or devices that 
allow them to choose between these two popular speeds, 
since transmission at these speeds is not usually affected by 
poor telephone lines. 

Let's talk about the names of the different types of mo- 
dems. There's the Acoustic Modem type of device, which is 
an instrument into which you insert a telephone handset; then 
there's the Direct Connect Modem, which you connect to 
your computer by inserting a plug into a jack, and control by 
hand. At the top of the modem hierarchy are the Smart, or 
Intelligent Modems, and for the purpose of this column we'll 
call an Intelligent Modem anything that has any function 
which does not need human intervention and is also a Direct 
Connect modem. We'll discuss what each of these modem 
types do and some of their applications. 

Remember that the top of the hierarchy is not necessarily 
the best modem for your own specific needs. Let's talk about 
a traveling salesman, for a perfect example. Let's say that he 
has a Color Computer or some other small computer which, 
for business purposes, he must cart around with him (Let's 
say that he doesn't have a Model 1 00, because that happens 
to have communications built into it). He will have to interface 
with as many kinds of telephone connections as possible 
because he stays in different motels in different cities, and 
each may have a different type of phone connector. What 
happens when he has to hook up his Coco and call the home 
office? Can you see the poor fellow digging under a bureau in 
his motel room to find the telephone outlet, only to discover 
that it has the wrong type of connector? He'd have to un- 
screw the wall plate and attach a couple of alligator clips, and 



then run out to a jack that he's hastily put together so he could 
interface with his computer, and if the next motel has 
yet another type of jack he must start all over again! Whew! 
Well, there's something easier for him to do; he uses an 
ACOUSTIC MODEM, like the AC-3 (26-1174). This way he 
can just pick up the phone in his motel room and place the 
handset happily into the cradle of the modem. 

Because of the vagueries of different telephone hand- 
sets, this type of modem is generally limited to a speed of up 
to 300 baud. There are a few 1200 baud acoustic modems 
available, but their reliability might be in question depending 
upon the type of microphone which is in the telephone being 
used with the modem. This reliability factor is probably why 
one would more than likely have difficulty finding an Acoustic 
Modem which operates at higher than 1200 baud. Also, 
constant use of carbon based microphones often results in a 
condition called CARBON PACKING in which the granules of 
carbon actually pack closely together and therefore do not 
transmit sounds properly, resulting in data dropouts (loss of 
pieces of data). 

There are two ways to deal with Carbon Packing. The 
better of the two is to replace the carbon microphone in your 
telephone with an electronic microphone. The second 
method (which will hold you if this occurs in the middle of a 
transmission) is to strike the microphone end of the telephone 
with lateral force (perpendicular to the length) of about 10 to 
20 foot-pounds, perhaps five or six times. This will loosen up 
the carbon sufficiently to restore communications, temporar- 
ily at least. A symptom of Carbon Packing is frequent parity 
errors when you know you've set your parity correctly. An- 
other good indicator is the SPORADIC insertion of garbage 
characters in an otherwise normal line of data. Perhaps as 
much as 20% of the characters may be "scrambled." After 
you've terminated your connection, hold the handset with the 
microphone away from you facing upwards and strike it 
against the side of a desk (etc., etc. as above). 

Generally speaking, the adaptability of the Acoustic 
Modem to almost any type of phone makes it ideal for a 
person who does a lot of traveling. Despite the speed limita- 
tion imposed on that particular type of device, it is very 
convenient for use with different telephones because all the 
user does is insert the handset into the modem. 

The next type of modem we'll discuss is the DIRECT 
CONNECT modem like the Modem I (26-1 1 72). This is very 
convenient for the person who does a lot of calling out but 
does not have a lot of money to invest in a "Smart Modem." 
This type of machine makes an excellent workhorse. They 
come in all speeds, featuring great ease of operation; you 
simply put in your software, initiate it and throw the switch. 

The next step up the modem ladder is the SMART or 
INTELLIGENT MODEM. For the purpose of this article we'll 
use this term as a broad description. Let's define it as a 
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modem that has any sort of built-in function which does not 
require human interface; for example AUTOMATIC ANSWER 
or AUTOMATIC DIAL, There are some modems on the mar- 
ket which recognize what speed a caller is transmitting at 
(many BBS callers are familiar with this). There are Protocol 
Converter Modems and Short Haul modems, many varied 
and specialized modems, each made for a very specific 
purpose. 

The simplest form of an Intelligent Modem would be a 
device with an Auto Answer feature. There are many Auto 
Answer/Manual Originate modems on the market. These are 
used in business quite frequently when one location is ex- 
pecting many incoming calls but doesn't really make many 
outgoing ones. 

Another frequently seen type is the Auto Answer/Auto 
Dial modem, such as the Modem II (26-1 173). This type is 
often used by locations who expect to be doing a lot of 
outgoing dialing as well as receiving incoming connections. It 
is a convenient feature to have when one is in the position of 
having to make a lot of calls because while your modem is 
dialing your number for you, you are free to make any other 
preparations which you may require. 

Another type of Intelligent Modem is the Programmable 
modem. This is a device that can perform special types of 
functions such as redialing a number, if it gets a busy signal, 
or adjusting its baud rate depending on the rate of the incom- 
ing call. 

Another interesting modem type is the PROTOCOL 
CONVERTING MODEM. This is a product that has only hit 
the market recently, but is expected to spread like wildfire. It is 
an Intelligent Modem with a built-in translator which enables 
the user to input one protocol (for example Bit Serial Asynch- 
ronous) and output in a completely different format (for exam- 
ple CCITT X.25). 

It seems likely that communication is going to become 
more and more of a moving force in our lives. Not long ago a 
Seattle, Washington radio station (KM PS) conducted an ex- 
periment which broadcast a computer signal over the radio. 
Listeners were to tape the signals and feed them via modem 
into their computers and thus receive a specific message. If 
this method of data disbursal proves successful, it opens 
almost limitless possibilities! 

John Roach, CEO of Tandy Corporation, wrote recently 
that one day soon people will have pens in their pockets that 
are really telephones. Very possibly these little pocket de- 
vices will have data interfaces on them. Ma Bell is already 
bringing out telephone networks and central switches which 
have data interfaces at every station. How long can it be until 
that is made portable? The interface between telephones and 
computers is becoming more and more apparent every day. 

Yet another area where computers are interfacing with 
other communications devices is in the realm of video. If 
you'd like to learn something about this topic, please write 
and let us know! 

GETTING ON BOARD 

We have received so many comments and questions 
concerning Bulletin Boards that we have begun this new 
feature, in which we hope to give you interesting information 
about Bulletin Boards around the country every month. 

This month we'd like to feature a brand new newsletter 
called PLUMB which is put out by Riverside Data Inc. and 



edited by Ric Manning. This is the first newsletter of its kind; it 
is entirely dedicated to information and services for Bulletin 
Board callers. The newsletter highlights interesting Boards 
and events happening in the Bulletin Board world, such as 
the inception of employment notices being placed on certain 
boards and the closing of a famous (infamous?) "Pirate" 
board. It is chock-full cover to cover with information of inter- 
est to every bulletin board caller, and subscriptions to 
P L U M B are available through Riverside Data Inc at P.O. 
Box 300, Harrods Creek, KY 40027, 502-228-3820. Inquiries 
can also be made through their accounts on CompuServe 
#72715,210 or The Source, STQ007. 

PLUMB fills a gap that has never before been dealt 
with. It is an exciting, fun, and informative publication dealing 
entirely and exclusively with Bulletin Board infor- 
mation. With Ric Manning's permission, you will find below 
just a taste of what is waiting for you between the covers of 
PLUMB. 

"The ARK-NET PBBS in Little Rock, AR, has an exten- 
sive library of TRS-80 programs available for downloading to 
all callers. No passwords or access fees are necessary The 
board opens at midnight Monday-Thursday, with extended 
hours on weekends, at 501 372 1563." 

"Three new computerized message systems now serve 
professional writers and photographers. One is Photonet, a 
New York-based network for advertising, publishing and 
photography, Photo- 1 is a communications system for pho- 
tojournalists and photo departments to help each share re- 
sources and avoid duplication The Notebook lists notices 
from writers and photographers who are available for 
freelance assignments, databases of magazines and private 
sections for agents and publishers. Here's where to call for 
more information: Photonet, 212 750 1386 (voice); Photo-1, 
212 929 8030 (voice); The Notebook, 305 686 4862 
(modem) and 305 648 8751 (voice)." 

"The Dragon's Lair Adventure System in Southern Cali- 
fornia has 15 adventure and strategy games ready to play 
online. Enter the lair by calling 213 428 5206." 

P L U M B not only spotlights interesting boards in each 
issue but has a list of other Bulletin Board phone numbers for 
you to try, along with a many helpful bits of information 
regarding each one. We thank Ric for his permission to 
reprint a small taste of his treasures here for you. 

THE CORNER MAILBOX 

Here's a question about available software to use with 
Radio Shack hardware: I own a Model II and a Modem II. I'm 
trying to find a communications package that will support 
auto-redial with this modem. I dial into a busy university time 
sharing system. I want the modem to keep dialing until it gets 
me a port and then log me on and run a program. 

The documentation that comes with the Modem II sug- 
gests that this program would be relatively easy to write for an 
experienced programmer . . . which I'm not . . . programs 
that support this auto-redial feature abound under CP/M, but 
what about under TRSDOS for the Model II? 

Warren S. Williams, Ed.D. 

Eastern Michigan University 

Dear Warren: 

To our knowledge there is no such software package 
currently available, but you can accomplish your objective by 
creating a "DO" file. Embedded in this file (which I will de- 
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scribe below in block form) will be a program which you will 
have to write to check the carrier detect. If you refer to June 's 
article it will explain how to address the port. In your particular 
case there is a service call available. Please refer to page 282 
of your Model II Owner's Manual. There you will find in lines 
980 through the end a carrier check routine. You must put this 
routine in a loop (You cannot use the BC register as a counter 
since the service routine uses it— I suggest you use the HL 
register to store the number to decrement.) long enough to 
allow for three rings of the telephone followed by about five 
seconds for the carrier to come up. If the carrier is still not 
present after that time, have the program disable interrupts 
and jump to location 0000. This will reboot your machine, so 
you must perform the following patch: PATCH SYSRES/SYS 
A = 2367 F=73 C = CA. This will remove the date and time 
prompts from your system, thereby allowing you to do an 
"AUTO DO Filename. " Therefore, if no carrier is present, you 
will go through a cold reboot. If you look at the block diagram 
beneath, you will see the the first thing to do in the DO file is to 
Initialize your Modem and dial. 



Initialize 
Modem 



Dial Number 



Run Checking Program 
as described above 



Load Your 
Terminal Program 



When your menu comes up, you know you're con- 
nected, and you can use the option (NOTE: you must first 
use the A option to build your Auto sign-on and then save the 
changed program as described on page 1 78 of your manual) 
to enter Terminal Mode with Auto Sign-on. 

The above should solve your problem, however, if you 
have trouble don't despair; go to your nearest Radio Shack 
Computer Center and ask to speak to the Customer Service 
representative. If that does not prove satisfactory ask THEM 
to contact their NAR (National Accounts Representative), 
since the NARs deal with communications quite frequently. 
Good luck! 



That will about round off our corner for this month. We 
hope you'll come back to visit with us again next month. 
Happy Communicating! JH 






Nicholas Leon 
26 Tanners Drive 
Wilton, CT 06897 



I am a regular reader of your magazine, and I have 
noticed that you have been doing a lot of articles on changing 
strings into graphic. So I wrote the following program. 

This program will run on any TRS-80 with Level II BASIC 
or Model III BASIC. It will not run on a disk system because 
BASIC takes up a different address. This program takes a 
string and replaces it with any ASCII character. 

You can use this program to set up variables in another 
program. To use it correctly you MUST have both quotes, 
otherwise the program will crash. Also, it MUST be before the 
input statement or else that will be changed. Here is the list of 
variables. 

C— The ASCII code of the character with which you want to 

replace the string. 
S— The start of the string in the memory. 
E— The end of the string in the memory. 
A, A1, A2— Counters for memory addresses. 






CLS 














1 


'Put your string 


between 


lines 1 and 9 






9 


PRINT "ASCII CODE OF THE CHARACTER 
REPLACE THE STRING WITH" 
: INPUT C 


YOU 


WANT 


TO 


10 

20 


FOR A = 17385 

IF PEEK(A) = 

: GOTO 40 


TO 
34 


327 67 
THEN S = 


= A + 1 








30 
40 
50 

60 
70 


NEXT A 

FOR Al = S TO 

IF PEEK(Al) = 

: GOTO 70 
NEXT Al 
FOR A2 = S TO 


32767 

34 THEN E 

E 


= Al - 1 










: POKE A2,C 














80 


: NEXT A2 
LIST 
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Bugs, Errors, and Fixes 



LETTER CORRECTIONS TO SOFTWARE 

Following are brief descriptions of problems to be fixed 
in specific software packages and the dates of letters that 
were sent to all registered owners containing the corrections 
to the problem. 

If you are a registered owner of a software package 
described below and have not received the letter detailing 
the software problem and its correction, then contact your 
nearest Radio Shack Computer Center or Computer Cus- 
tomer Services. If you have not registered and are a legal 
owner of the software, you need to register by sending in the 
card that came with the package. 

Model I/III/4 

ADVANCED STATISTICAL ANALYSIS (26-1705) 

There is a correction in the Analysis of Variance program 
that allows the Standard Deviation to be calculated correctly 
when a limited number of data entries are made. 

Letter dated: January 4, 1982 

Model II, 12, 16 

PAYROLL (26-4503) 

These corrections allow you to enter wage amounts 
containing up to three decimal places and correctly calculate 
checks. 

Letter dated: December 15, 1982 

SCRIPSIT 2.0 (26-4531) 

Due to on going improvement, of this package and the 
release of several new Radio Shack printers, it has become 
necessary to modify your software. We have provided drivers 
for the DMP series of printers and the DWP-41 Daisy Wheel, 
and made corrections to the following Scripsit functions: 
formatting, text, tab setting, line spacing values, global 
search and replace, repagination, user-defined print codes, 
editing, underlining, printing multiple copies of a merge doc- 
ument and use of merge with a serial printer. 

Letter dated: December 17, 1982 

COBOL GENERATOR (26-4707) 

Changes made to the RSCOBOL GENERATOR include 
cosmetic changes to error messages and prompts within the 
program, use of pause and clear with data entry screens, sub 
screen data entry, the use of 3 and 4 alternate keys on 
Indexed Sequential files, and corrections to error messages 
when defining the length of report lines. 

Letter dated: February 24, 1983 

REFORMATTER (26-4714) 

This letter contains modifications to correct problems 



associated with record transfer using the command 
TRANSFER^IBM^TRSDOS. 

Letter dated: November 28, 1982 

THINLINE TRSDOS 2.0 (26-6001, 26-6002, 26-4004, 
26-4005) 

With some thinline drives an ERROR 8 will occur when 
the drive is accessed when using THINLINE TRSDOS 2.0. 
TRSDOS does not allow enough time to come up to speed 
before assuming a valid error has occurred. There is also an 
erroneous operator prompting for DRIVE NOT READY when 
running FORMAT. 

Letter dated: December 17, 1982 (26-6001, 26-6002) 
February 10, 1983 (26-4004, 26-4005) 

TRSDOS 4.1 (26-6001, 26-6002, 26-4150) 

Recent modifications to the TRSDOS 4.1 operating sys- 
tem allow: speeding up the access of BASIC files, speeding 
up the memory test, proper handling of flawed diskettes with 
the SAVE option, corrections to the BACKUP utility, the clear- 
ing of records when the "I" command is used, and the 
correction of some misspellings. 

Letter dated: December 17, 1982 

OTHER CORRECTIONS 

Model I/III/4 

MODEL III/4 OPERATION AND BASIC LANGUAGE 
REFERENCE MANUAL (26-1067) 

In the keyboard and video display control characters 
table on page 228, SHIFT i9 should read SHIFT l = . 

TRENDEX (26-1509) 

Short Term Market Trend program, Intermediate Term 
Market Trend program, and Long Term Market Trend pro- 
gram do not print a future trend for each date when a printout 
is requested at Computer Trend. 

The following changes are optional. 

Load the Short Term Market Trend program into the 
computer and add the following new program line: 

4125 IF A$ = "" THEN IF ABS(T9) = 1 THEN A$ = "LEVEL" 
ELSE IF T9 = 2 THEN A$ = "UP" ELSE A$ = "DOWN"//@ 

Type CSAVE"S" to save the changes in the program. 
Load the Long Term Market Trend program and add the 
following new line: 

4125 IF A$ = "" THEN IF ABS(T9) = 1 THEN A$ = "LEVEL" 
ELSE IF T9 = 2 THEN A$ = "UP" ELSE A$ = "DOWN" 

Type CSAVE"L" to save the program changes. 
Load the Intermediate Term Market Trend program and 
change line 4405 to read: 
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4405 TT = SGN(DD)+1:IF ABS(TT)= 1 THEN A$ = "LEVEL" 
ELSE IF TT = 2 THEN A$ = "UP" ELSE A$ = "DOWN" 

Add the following new line. 

4125 TT = SGN(DD)+1: IF ABS(TT) = 1 THEN A$ = "LEVEL" 
ELSE IF TT = 2 THEN A$ = "UP" ELSE A$ = "DOWN" 

Type CSAVE'T' to save the changes in the program. 

Pocket Computer 

PROBLEM SOLVING WITH THE TRS-80 POCKET 
COMPUTER (62-2312) 

Line 100 of the Cylinder Program located on page 36 
should read as follows: 

100 "V":V= 7T * R~2*H 

Color Computer 

KLENDATHU (26-2567) 

The first sentence on page 7 should begin: 
"KLENDATHU is a video game for the TRS-80 Color 

computer 16K with Extended BASIC and cassette tape 

system." 

COLOR COMPUTER OPERATION MANUAL 
(26-3001/3002) 

Under Printer Software Requirements on page 26, 7 
Data Bits (LSB first) should be changed to read 8 Data Bits 
(LSB first). 

COLOR COMPUTER LEARNING LAB MANUAL (26-31 53) 

The program listing on pages 133-134 needs to be 
modified so that it matches the program on the tape. Make 
the following changes to the listing in the manual. 

Lines 30 and 40 should read: 

30 A=RND(S) 
40 B=RND(S) 

Line numbers 80 and 90 should be changed to lines 60 
and 70 respectively 

Line 730 should be changed to read: 

730 PRINT " YOU GOT";20-E 

GETTING STARTED WITH COLOR BASIC (26-3191) 
GOING AHEAD WITH EXTENDED COLOR BASIC 
(26-3192) 

On page 270 of Getting Started with Color BASIC and 
page 208 of Going Ahead with Extended Color BASIC, the 
locations for the joysticks are incorrect. They should be 
changed to: 



Left Joystick 
Up/Down 15D 
Right/Left 15C 



Right Joystick 
Up/Down 15B 
Right/Left 15A 



PERSONAFILE (26-3260) 

On page 1 9 the sentence in the first paragraph that reads 
"... (Once a subject name has been changed, all records 
under the old subject name are permanently changed to the 
new subject name and must be accessed using the new 
name.)" should be moved and inserted between "... 
changed to the new name." and "The message:" in the 
fourth line up from the bottom of the page. 



The following information should be added to the end of 
the paragraph that begins "... First, type the old name 
exactly . . . ": 

(If you enter a subject name that is already stored on the 

disk, the message, INVALID NAME, will be displayed. 

Press (enter) and reenter a new subject name.) 

On page 21 at the end of the paragraph that begins 
"First, type the old name exactly . . . ", enter the following 
sentence. 

(If you enter a tag name that is already stored on the disk, 
the message, INVALID NAME will be displayed. Press 
(enter) and reenter a new tag name.) 

Between "... to the new name." and "The message:" 
on the fourth line up from the bottom of page 21 insert the 
following information. 

(Once a tag name has been changed, all records under 
the old tag name are permanently changed to the new 
tag name and must be accessed using the new name. 

PYRAMID (26-3310) 

The first paragraph under the heading "For the Truly 
Adventurous Only" on page 5 of the manual should be 
deleted. The magic word PLUGH is not operative in the Color 
Computer version of the game which makes this paragraph 
irrelevant. 

EDTASM+ (26-3250) 

An explanation of how users with Color BASIC machines 
can use the BASIC CLOADM command to load their pro- 
grams was omitted from the manual. Insert the following at 
the end of Step 3 on page 25 of the manual. 

Note: If your Color Computer does not have Extended 
Color BASIC, you must perform the following steps: 

(A) Write, Edit and Debug your machine language pro- 
gram using EDTASM + . 

(B) Assemble your program onto cassette tape. 

(C) Switch your Color Computer's power off then on. 

(D) Enter ZBUG, 

(E) Using ZBUG's "L" command, load your program 
into memory. 

(F) Then save your program onto tape using ZBUG's "P" 
command. 

(G) BASIC'S CLOADM and EXEC commands will then 
operate normally. 

Model 100 

MODEL 100 OWNER'S MANUAL (26-3801) 

Figure A-4 on page 194 is incorrect. The Model 100 
should be connected to Port A on the Model 11/16. The 
terminator plug would then be plugged into Port B. 

On page 1 80 under the title SOUND, the sentence which 
reads "... pitch ranges from to 16383, with the larger 
values corresponding to higher pitches" should be changed 
to read "... pitch ranges from to 16383, with the larger 
values corresponding to lower pitches." 

Under the title Printer I/O on page 1 22, the operation for 
keyword LPOS is incorrect. It should be changed to read: 

Keyword Operation 

LPOS Returns the column position of the print 

head. 
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Model 11/12/16 

MEDICAL OFFICE SYSTEM (26-4508) 

The backup procedure on page 21 of the manual should 
include the following note. 

Note: It is recommended that you make a backup copy 
of the program disk as well as your data disk daily. Refer 
to the backup instructions on how to backup your work- 
ing master diskette. 

Peripherals 

DMP-200 OPERATION MANUAL (26-1254) 

On page 9 under Single-Sheet Paper Loading number 6 
should be changed to read: 

6. Move the Platen Pressure Lever forward and align the 
paper. Push the Platen Pressure Lever back. 

Number 7 should be changed to read: 

7. Set the Print Head Control Lever to the appropriate 
position. 

On page 24 in the second row of the middle column 
entitled Or Send a CHR$( ): the numbers should be 27 23 not 
27 21 as shown. J2 



Notes Previous 



FEBRUARY 1982 

Scientific Notation and PRINT USING on the Extended 
BASIC Color Computer 

The following has been brought to our attention. When 
using scientific notation with the PRINT USING statement 
where the exponent is larger than nine it appears that the 
exponent is displayed in base 1 2 with : and ; being displayed 
for the digits 10 and 11. Thus "1.1E10" is displayed as 
" 1 . 1 E + 0: " . In response to this we would like to reiterate what 
appeared in the February 1982 issue of TRS-80 Microcom- 
puter News on page 37. 

"When using the PRINT USING function in Extended 
BASIC along with the exponential function, you are limited to 
exponents of nine or less. If you try to use an exponent of 1 
or larger, the resulting answer will not be correct. My sugges- 
tion here is to not use PRINT USING when using exponents 
and if you must, limit them (exponents) to less than 10." 

Advanced PRINT USING 

Ben H. Nation 
P.O. Box #391 
Fairfield, IL 62837 

My version of, Advanced Print Using by Johnny Bond 
upgrades it from a birth date to an address-birth date-phone 
record. 

10 ' ADVANCED PRINT USING by Johnny Bond, P. 21, Feb 
82 MICROCOMPUTER NEWS as revised by Ben H. 
Nation, 26 April 83 

20 CLS 

30 S$="NAME: % % STREET: % 

% CITY: % % STATE: % 

% ZIP: % % BIRTHDAY: ##/##/## TELEPHONE: 

40 INPUT "NAME "; N$ 
50 INPUT "ADDRESS"; A$ 
60 INPUT "CITY"; C$ 



70 INPUT "STATE (2 LETTERS)"; E$ 

80 INPUT "ZIP (5 DIGITS)" Z$ 

90 INPUT "YEAR OF BIRTH (2 DIGITS "; YB 

100 INPUT "MONTH OF BIRTH (NUMBER)"; MB 

110 INPUT "DAY OF BIRTH "; DB 

120 INPUT "AREA CODE"; AC 

130 INPUT "PHONE NUMBER (FORMAT ####«#) "; PN 

140 Tl = INT(PN/10000) 

150 T2 = PN-(T1*10000) 

160 PRINT 

170 PRINT USING S$; N$, A$ , C$, E$, Z$, MB, DB , YB, 

AC, Tl, T2 
180 PRINT 
190 END 

Could someone please tell me how to print "on-screen" 
information from the Model III onto the DMP-200 without 
CMD"Z","ON"? 

Editor's Note: Press [shift) CD C*D simultaneously to 
do a screen print from the Model III 

MAY 1982 

Ultra Precision Multiplication 

Ben H. Nation 
P.O. Box 391 
Fairfield, IL 62837 

We changed line 50 to read: 

40 CLEAR 1000: DIM T! , Tl ! , A$, OS!, DP!, B$, PI, H$, 
H2$, Hl$, H3$, Dl!, D2! , DD!, A! (600) 

This decreased the computation time immensely! Try 
multiplying the numbers 1,000,000x9,999,999 before and 
after making the change and notice the tremendous increase 
in speed. 

OCTOBER 1982 

Mailing Labels for the CoCo 

Larry Allen 
207 E. Clark St. 
Jonesville, IN 47665 

It was with much interest that I read David Banaszak's 
article on CoCo mailing labels and the subsequent inter- 
changes in Microcomputer News. Perhaps my experience 
with the problem and my solutions might be helpful. 

In addition to my personal needs, I handle the mailing 
lists of several volunteer organizations. At first I wrote job- 
specific programs tailored to each need. This had the advan- 
tage of using little memory and would load quickly. If the 
parameters were changed, the program could be changed 
with little effort and even saved if necessary. 

Soon, however, my desk was overflowing with program 
tapes (each slightly different) as well as data tapes. And the 
task of finding the correct program, loading it, checking it, 
then loading the correct data tape, updating (small organiza- 
tions are notorious for monthly updates), printing, then saving 
new data (and if necessary, new program) led me to consider 
if there might not be a better way. 

My first thought was Colorfile, a multi-talented ROM car- 
tridge I have found very useful. With its lightning fast machine 
sorts, variable parameters, etc., I am finding new uses for it 
regularly. However, as I soon discovered there seems to be 
no way to change the parameters once you have built a file. 
And after trying for several months to figure a way to get it to 
print on 9-line labeled stock supplied by one of the organiza- 
tions, I was ready for another idea. 

The answer was not only simple, it added many capabili- 
ties— visual search, easy editing, etc., without tying up a lot of 
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memory with a custom program. I just use the Color Scripsit 
ROM cartridge. Data is entered so: 

John Doe 

2131 Amber Drive 

Justso, MO 12345 

Bill Smith 

1212 Will Circle 

Wilson, IA 54321 

Then by setting the parameters (margins, page length, 
blank lines) I can use the same file for labels, fanfold post- 
cards or anything else I can run through the printer. The 
parameters are saved with the data. So for labels it is a simple 
matter of load and print. 

I still use Colorfile for many purposes, but for small multi- 
use mailing lists that get much editing, Scripsit is the easiest 
I have found. 

Disk Directory Program 

Rex Rivers 

President, The Color Computer Club 

1205 N. Mosley 

Wichita, KS 67214 

I have discovered a problem with the Disk Directory 
program. As software advisor for the Computer Club of 
Wichita, I have seen several people with the same problem. 
When you load a color disk program into a computer that 
does not have a disk, it cannot interpret the tokens for the disk 
commands. Therefore lines 110, 170, and 340 were not 
correctly listed. The exclamation point (!) in lines 1 1 and 1 70 
should beteplaced with DSKI$. The exclamation point in line 
340 should be replaced with FREE. 

Also, the entire program could be replaced by typing in 
the following line. 

POKE 111, 254: DIR 

IRA Account 

Richard Ellers 
426 Central Pky SE 
Warren, Ohio 44483 

Listing #1 is a rewriting to conform to Model III arithmetic 
operations of Harold R. Wright's Pocket Computer IRA calcu- 
lation program on page 37. 

This program produces a year-by-year balance of an 
IRA account, based on four variables: annual deposit, inter- 
est rate, compounding rate, and number of years. 

The program ends with a return to start, since this is the 
kind of program that is run several times at a crack. 

Listing #2 prints the final balance only and for the fun of it, 
I packed the program in a single line (eliminating CLS). 
Listing #1. 
10 CLS 

: CLEAR 10000 

: PRINT@20, "I.R.A. ACCOUNT" 
20 INPUT "Annual deposit, interest rate, compounding 

rate, # years "; X, Y, Z, N 
40 PRINT "$" ;X; " deposited @" ; Y; "% ; compounded"; 

Z; "times/year; "N" "years 
50 PRINT "YEAR BALANCE" 
60 FOR U = 1 TO N 
70 W = (1+Y/(100*Z))[Z*(W+X) 

: T=INT(100*W+.5)/100 
80 PRINT U, 

: PRINT USING "$$####,.## " ;T 

90 NEXT U 
100 GOTO 20 
Listing #2 

10 CLEAR: INPUT "ANNUAL DEPOSIT, INTEREST, COMPOUNDING, 
YEARS"; X, Y, Z, N: FOR U = 1 TO N: W = ((1 + 



Y/(100*Z))[Z)*(W+X):T=INT(100*W+.5)/100:NEXT 
U:PRINTUSING" $$##########,.##"; T: PRINT: GOTO 
10 

C. Bruce Minturn Jr. 
10047 Wimbledon Court 
Cincinnati, OH 45242 

While reading through the TRS-80 Microcomputer News 
May issue, I came across the article "IRA Account." The 
program interested me, but it was written for the pocket 
computer. My computing interest are with the Color 
Computer. So I converted the program written by Harold R. 
Wright to run on the CoCo. 

The program is used for estimating the value of an I.R.A. 
account with equal yearly deposits. RUN the program and 
answer the questions on the display. Interest may be com- 
pounded from 1 to 365 times per year. The output shows the 
value each year up to the number of years requested. 

100 REM IRA ACCOUNT PROGRAM 
110 CLS 

: PRINT "I.R.A. ACCOUNT" 

: PRINT 
120 A$ = "$$#,###.## % %" 

: B$ = "## $$##,###,##" 
130 INPUT "DEPOSIT/YEAR $ "; X 

: INPUT "% INTEREST "; Y 
140 INPUT "# COMPOUNDED /YEAR "; Z 

: INPUT "NO. 0FYEARS "; V 
150 CLS 

: PRINT "I.R.A. ACCOUNT" 
160 PRINT USING A$; X; "DEPOSIT"; PRINT Y; "% 

INTEREST" 
170 PRINT " COMPOUNDED"; Z; "TIMES PER YEAR" 

: PRINT " FOR"; V; "YEARS" 
180 PRINT 

: PRINT "YEAR BALANCE" 

: PRINT " " 

190 W = 

: I = Y/(100*Z) 
200 FOR U = 1 TO V 
210 W = W + X 
220 FOR J = 1 TO Z 
230 W = (1+I)*W 
240 NEXT J 
250 T = INTU00 * W + .5)/100 

: PRINT USING B$; U; T 
260 NEXT U 
270 END 

MARCH 1983 

Renumbering on the Models I and III 

Matthew Belmonte 
2120 Marlboro Drive 
Alexandria, VA 22304 

Renumbering on the Models I and III apparently does 
not run as stated. One Model III user employed the following 
change to make the program work when the new line num- 
bers are below 256. 

Delete NEXT Y in 63998. Above 255 the numbers have 
the correct increments and order but are too high. These 
changes may solve the problem. 

In line 63996 change A = Y/255 to A = Y-256, and in line 
63997 change IF . . . THEN Y = Y-255 to IF . . . THEN 
Y = Y-256. 

APRIL 1983 

New Disk Videotex for the Model I/III 

Videotex Plus stock number should read Cat. No. 
26-1588 instead of Cat. No. 26-2225. M 
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Color Computer 



The Dungeons of Daggorath 



By Linda Miller 



For many years the denizens of Rivenshire lived quietly 
in the protective shadow of the towering peaks of Daggorath. 
Then came the Year of Darkness when the crops failed, their 
cattle wasted away, and their precious children fell ill. 

Perplexed by the misfortune that plagued them, the 
people cried out for an explanation. A wise man of the village 
came forward and told them of the curse on the land and the 
evil Wizard who had returned to live in the dungeons deep 
within the bowels of Daggorath. 

Many years before the Wizard had been driven from the 
Dungeons of Daggorath by a brave adventurer, but even as 
he fled, the Wizard swore in vengeance that he would some- 
day return with his legion of evil creatures to once more 
inhabit the Dungeons of Daggorath and wreak havoc on the 
villagers of Rivenshire. The wise man held up the Ancient 
Book left by the brave adventurer which explained many but 
not all the mysteries and dangers of the Dungeons. But 
where would one bold and wise enough to enter the Dun- 
geons and defeat the Wizard be found? 

You, dear reader, are that noble adventurer. Only you 
can save the once peaceful hamlet of Rivenshire from the evil 
Wizard by entering the Dungeons of Daggorath armed only 
with a wooden sword, a torch, the knowledge gleaned from 
the Ancient Book, and your own skill and cunning. It will be 
your task to gain the necessary strength and wisdom to 
conquer the evil creatures and ultimately the Wizard who 
waits deep within. 

Many will not return from the dungeons, but someone 
must persevere until the end or all will be lost and only evil will 
stalk the days of Rivenshire. As you prepare to enter the 
Dungeons of Daggorath a chilling view of the Wizard appears 
as he hurls his challenge "I DARE YE ENTER . . . THE 
DUNGEONS OF DAGGORATH." 




In your possession is a backpack containing a pine torch 
and a wooden sword. As long as it lasts, the pine torch lights 
the way in the dungeon, but it will be up to you to find new 
sources of light. As the light burns low, it becomes more 
difficult to see and kill the creatures. The wooden sword will 
be your only weapon against the creatures unless you locate 
the other objects within the Dungeon to aid you. The crea- 
tures of the Dungeon move toward you relentlessly. If you 
stop to calm your beating heart, they continue onward with 
only one thought in mind— your total annihilation. 

Once inside the Dungeon, there is no retreat. You must 
defeat all the creatures sent to destroy you in your search for 
the Wizard. Don't be deceived by feigned friendliness. Some 
creatures are more easily dispatched than others, but all are 
deadly. Given the opportunity each creature can and will 
destroy you! 




At first it's quiet in the Dungeon and all you hear is the 
beating of your own heart. As you move faster your heart beat 
increases in speed. Take care that you don't expend your 
energies so quickly that you faint. The creatures of the Dun- 
geon show no pity on unconscious intruders. Fainting can 
mean instant destruction. 

You soon hear other sounds. Vipers, Spiders, Evil 
Knights, Smiling Blobs, Stone Giants, Scorpions, Wraiths, 
and Galdrogs all inhabit the Dungeon. Each creature has a 
distinct sound which enables you to determine what ap- 
proaches and whether you feel that you have gained suffi- 
cient strength to defeat the creature. Retreat is only a 
temporary solution because the creature will continue to 
track you until one of you is the victor. 

There are weapons, magic rings, potions, and scrolls all 
hidden in the Dungeon. It will be up to you to find them and 
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discover any secret powers they may possess. After you 
conquer the top three levels of the Dungeon, you will move 
into the lower level (levels 7 ) where the Wizard resides. Each 
level increases in difficulty, and you will need the strength 
gained from the previous levels to defeat the increasingly 
treacherous creatures of the lower levels. 

WHAT A THRILLER! 

Dungeons of Daggorath challenges the skill of the most 
ardent adventure or action game enthusiast. It combines 
sound and graphics in a multi-level maze to provide a fasci- 
nating, action packed adventure game. The creatures move 
about the Dungeon tracking you in realtime. Even if you stop, 
they don't. You can never be sure what order you will meet 
them from one game to the next. 




When they're getting close, you can also see the crea- 
tures that are advancing toward you as well as hear them. 
The objects that are in your left and right hand and a pulsing 
heart are displayed in the band across the lower portion of the 
screen. The faster you move and the more intense the con- 
flict, the more rapidly the heart pulses on the screen. 





Dungeons of Daggorath (Catalog no. 26-3093, Sug- 
gested retail price $29.95) is a Program PaW which requires 
a 1 6K TRS-80 Color Computer and color television to play. It 
comes with an instruction manual (also known as the Ancient 
Book) which gives you all the information necessary to play. It 
is a challenging game— one which should offer hours (days, 
weeks, years 7 ) of exhilarating entertainment, but I feel that I 
must warn you that you can get hooked on the Dungeons of 
Daggorath. 



Objects found in the Dungeon can be stowed in your 
backpack for later use. It is possible to look in your backpack 
to see what you're carrying. 
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TRS-80" Computer Camp 

This summer let Radio Shack's qualified instructors introduce your child to the world of computers at a TRS-80 BASIC or a 
TRS-80 LOGO Computer Camp. One TRS-80 Color Computer will be available for every two campers to give each participant 
the opportunity for hands on experience. No prior computer knowledge is required. 

TRS-80 LOGO 
Computer Camp 

For Ages 8-11 

The Color LOGO Language 

Color LOGO provides unique features that are not found in 
any other LOGO language. There's the "doodle" mode and 
the fascinating "hatch" command that creates multiple tur- 
tles. The result is a LOGO for the TRS-80 Color Computer that 
will excite young minds and help them welcome the chal- 
lenge of learning. 

Computer Concepts for Young People 

Radio Shack's Color LOGO is a revolutionary computer 
programming language for children. It is designed to help 
young minds grasp graphic relationships and develop 
problem-solving skills. Through manipulation of "turtle" 
graphics, youngsters learn to write simple programs. By 
doing so, the computer becomes a friendly learning tool, and 
youngsters gain insight into advanced concepts. 

Sessions are Self-Paced . . . And Fun 

Each child will progress at his or her own pace under the 
guidance of an experienced, professional educator. The cur- 
riculum, designed by educators, employs a play-oriented 
approach to encourage children to learn and use the 
computer. 



For Ages 12-15 

Computer Concepts for 
Young People 

Extended Color BASIC is an exciting and powerful pro- 
gramming language that youngsters can readily appreciate. 
Dynamic graphics, music and sound effects, and progres- 
sive programming techniques let students write simple 
problem-solving programs or create animated games. 

Sessions are Structured 
And Not Intimidating 

The five-day camp will consist of professionally-designed ac- 
tivities to keep the pace interesting and challenging. 

Extended Color BASIC Language 

Each camper will learn to use such BASIC features as 
assignment statements, looping, branching, subroutines, 
READ/DATA statements, editing, string packing, and more to 
create their own programs. 

Introduction to LOGO 

As an added bonus, each attendee will be introduced to 
Radio Shack's Color LOGO programming language. This will 
give the campers insight into a second computer language. 






Radio 
Jhaek 



COMPUTER 

CENTER 



Enroll now at your nearby 
Radio Shack Computer Center. 



